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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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