Select Code to Download

#!/usr/local/bin/perl
print  __PACKAGE__ ;
...
  print $a,"\n";
  print  __PACKAGE__ ;
}