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