Select Code to Download

Select or download this

#!/usr/bin/perl -wl

...

$bar->("monkses");
$foo->("world");

Select or download this

sub {
    no warnings 'uninitialized';
    print "sub1 args(",join(",",map{ "'$_'"} caller(0)),")\n";
    print "Howdy, $_[0]!\n";
}

Select or download this

sub {
    no warnings 'uninitialized';
    print "sub2 args(",join(",",map{ "'$_'"} caller(0)),")\n";
    print "Hullo, $_[0]!\n";
}

Select or download this

3674
3674
...
Attempt to free unreferenced scalar: SV 0x81992b0, Perl interpreter: 0
+x8166008.
Attempt to free unreferenced scalar: SV 0x818afc8, Perl interpreter: 0
+x8166008.
Attempt to free unreferenced scalar: SV 0x816f0f8, Perl interpreter: 0
+x8166008.

Select or download this

3675
3675
...
b7f82000-b7f83000 r--p 00000000 03:02 180200     /usr/lib/locale/de_DE
+/LC_MONETARY
b7f83000-b7f84000 r--p 00000000 03:02 180266     /usr/lib/locale/de_DE
+/LC_PAPER
b7f84000-b7f85000 r--p 00000000 03:02 163734     /usrAborted

Select or download this

#!/usr/bin/perl -wl
use strict;
...

$bar->("monkses");
$foo->("world");

Select or download this

3543
3543
...
Howdy, world!

Segmentation fault