Select Code to Download

open (FILEHANDLE, '<', 'some.file') or die "Can't open some.file for r
+eading.\n";
while (<FILEHANDLE>)
{
  print;
}

my $first = <FILEHANDLE>;