print do { my $l; $l = $_ while <FILE>; $l } [download]
In reply to Re^4: Read the last line in a text file by massa in thread Read the last line in a text file by ganilmohan