The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

#!/usr/bin/perl -w

# perl -MO=Terse dot.pl
require Carp;
sub dd {
die("foo");
}
dd(1,2,3);
die("foo","xx ");