use strict;
open INPUT, "<flea.txt" or die "Blerch: $!\n";
open OUTPUT, ">camel.txt" or die "Hcrelb: $!\n";

local *STDOUT=*OUTPUT;
local *STDIN=*INPUT;

while (<STDIN>) {print}