open my $readhandle,  '<', 'Input.log'  or die "Cannot open 'Input.log' $!";
open my $writehandle, '>', 'Output.log' or die "Cannot open 'Output.log' $!";