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

##</code><code>##

my $first = <FILEHANDLE>;