And, for HUGE files, i have been know to use something like :

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

---

_{can't sleep clowns will eat me}
-- MZSanford