#!usr/local/bin/perl
open(FILE ,"name_of_the_file_to_be_read"); 
seek(FILE, 4900,0);
read(FILE,$ab,100); #note the last 100 bytes get stored in $ab
close(FILE);