Select Code to Download

#!/usr/bin/perl -w

...
};

print "Eval OK\n";

#!/usr/bin/perl -w

use strict;
...
    print "Unsafe code detected: $@";
    print "At: $stack";
}

bash$ perl safe2.pl 1 
Trying: 1
...
    main::__ANON__(** Incomplete caller override detected; @DB::args w
+ere not set **) called at /usr/share/perl/5.14/Safe.pm line 358
    eval {...} called at /usr/share/perl/5.14/Safe.pm line 358
    Safe::reval(** Incomplete caller override detected; @DB::args were
+ not set **) called at safe2.pl line 26

bash$ perl safe2.pl 1 padany const leaveeval lineseq
Trying: 1
1