#! /usr/bin/perl
# seek function moves file pointer to specified byte position
# and a `from where' parameter

open tfile, "+< rd_write.txt" || die "can't find input file";
seek tfile, 10, 0;
# print tfile "xxx";
print <tfile>;
close tfile;