saber ultima línea de un archivo con perl

[color=#000000][font=Arial][size=4]Prueba con las siguientes líneas de código:[/size][/font][/color]

[color=#000000][font=Arial][size=4]

my $ult;
while(<MIARCHIVO>) {
$ult = $_ if eof;
}

[/size][/font][/color]