Select Code to Download

package Testtie;

...
}
1;

#!/usr/bin/perl

...

$f = "1\n";
print $f;

> ./test_test.pl
Died at Testtie.pm line 17.

#!/usr/bin/perl

...

$f = {1 => 2};
print $f->{1};

dash2@davehj:~/fun > ./test_test.pl
Died at Testtie.pm line 17.

#!/usr/bin/perl

...

$f = sub {print $_};
print $f->(1);

> ./test_test.pl
1