Чтение последней строки файла

[Alniger]

Народ, как возможно организавать на Perl,
чтобы скрипт читал последнюю строку файла (файл сейчас из 30 строк и пополняется) и присваивал ($id,$name,$sn) = split(\'::\');

Заранее Вам огромное спасибо.

[NeoNox]

open (FH , "./11") or die "can\'t $!";
my @m = ;
($id,$name,$sn) = split\'::\', $m[-1];

[Alniger]

Спасибо тебе огромнейшее, NeoNox