Select Code to Download

POSTIT.PL 

#!/usr/local/bin/perl 
...
open (LOG, ">>messages.txt"); 
print LOG "$nam $srn $sex $age"; 
close LOG;

#!/usr/bin/perl 

...
} 
} 
close LOG;