Help for this page

Select Code to Download


  1. or download this
    # main.pl
my @source = @{ $main::{ '_<' . __FILE__ } };
shift @source; # get rid of sub DB::DB{};
print for @source;
  2. or download this
    PERL5DB="sub DB::DB{}" perl -d main.pl
  3. or download this
    my @source = @{ $main::{ '_<' . __FILE__ } };
shift @source; # get rid of sub DB::DB{};
print for @source;