Select Code to Download

my $line_count=1;
while (<FILEHANDLE>)
{
   print $line_count++, " :$_"; 
}

$/ = undef;
my $lines = <STATFILE>;

my $lines = do { local $/; <STATFILE> };