open my $fh, '+<cat.txt' or die $!;
my $text = do { local $/; <$fh> };  # slurp
die "seek failed\n" unless seek( $fh, 0, SEEK_SET );
print $fh "The\n$text";
close $fh;