Select Code to Download

my $i;
while (1) {
    my ($pack,$file,$number,$sub) = caller($i) or last;
   printf "%02d| \&$sub called at $file line $number\n",$i++;
}

-- 
#!/usr/bin/perl -w
use strict;$;=
";Jtunsitr pa;ngo;t1h\$e;r. )p.e(r;ls ;h;a;c.k^e;rs 
";$_=$;;do{$..=chop}while(chop);$_=$;;eval$.;