Select Code to Download

package T;

...
}

1;

#! perl -w

...
foo();

print "\n\ndone.\n\n";

$ perl a.pl
Use of uninitialized value in print at a.pl line 11 (#1)
...
done.

$ perl a.pl
Use of uninitialized value in print at a.pl line 11 (#1)
...
 at T.pm line 16
        T::callstack('Use of uninitialized value in print at a.pl line
+ 11.\x{a}') called at a.pl line 11
        main::foo() called at a.pl line 14