Select Code to Download

package A;

...
B::yoursub( \&mysub );

1;

package B;

sub yoursub {
  shift->();
}

#!/usr/bin/perl -w

...
  print "I'm a kid!  My name is $$\n";
  print "I'm going to die now\n";
}

#!/usr/bin/perl -w

...
  print "I'm a kid!  My name is $$\n";
  print "I'm going to die now\n";
}

#!/usr/bin/perl -w

...

After second style

print "56565656565656565656565656565656565656565656\n";

...
    $i++;
  }
  print "56565656565656565656565656565656565656565656\n";

#!/usr/bin/perl -w

...
#            777
#          ]