#! /usr/bin/perl

open tfile, "+< rd_write.txt" || die "can't find input file";
$x = <tfile>;
print "The first line read was " . $x;
print tfile "xxx";
close tfile;