seek.pl

#!/usr/bin/perl

$FILE = "test.file";
#$FILE = "SystemOut.log";
#$filehandler = LOGFILE;
$filehandler = INFILE;
open ($filehandler, "$FILE") || die "Not able to open the file: $FILE \n";

while (1) {

        $skip = tell($filehandler);
        print "Starting with : $skip \n";
        $line = <$filehandler>;
        print "$line";

        seek($filehandler, 0, 2);
        $curreof = tell($filehandler);
        print("curreof=" . $curreof . "\n");
        $line = <$filehandler>;
        print "$line";

        #seek(LOGFILE,-80,1);
        #$line = <LOGFILE>;
        #print "$line";
        print "\n ---------------------------------------- \n";

        last;
}