#!/usr/bin perl -w
open (TEST,"+>t.txt);
seek (TEST,0,0);
print TEST "The\n";
close (TEST);