Select Code to Download

package Foo;
...
}

1;

#!/usr/bin/perl 
use strict;
...
 
my $tst2 :Sorted;
print "done\n"

package Foo;
use strict;
...
  print "all sorted"
}
1;