Select Code to Download

package SelfRecord;
use strict;
...
print "\n__END__\n";

1;

#!/usr/bin/perl -w
use strict;
require SelfRecord;

print "Hello!"

#!/usr/bin/perl -w
use strict;
...

__END__
Hello!