#!/usr/bin/perl -w

open (TEST,">>cat.txt");
seek (TEST,0,0);
print "The\n";
close (TEST);