Select Code to Download

 # You are using strict, right??? :-)
 use strict;
...
 # Close up the file
 close(FILE);

 srand;

...

 # And then do whatever else with it...
 print "$part[0] $part[1] $part[2] ... ";