open(F,"< $filename");
seek(F,-2,2);
while ($c ne $/) {
    read(F,$c,1);seek(F,-2,1);
    $last = "$c"."$last";
}
print "Last : $last";