my $file="camel.out";
system("cat camel.txt >$file");

##</code><code>##

my @output=split `cat camel.txt`;
open FILE ">camel.out" or die "My camel is sick: $!\n";
print FILE for @output;
# This code is untested, so beware