open(FILE,"< filename") || die $!; 
while($line=<FILE>) {} 
close(FILE);
print $line;