Without slurping the entire file in an array, without the shell calls and the modules, I'd stick to

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

Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.