sub Cat{
  local $/=undef();
  open my $fh, "<" . shift();
  open my $gh, ">" . shift();
  $_=<$fh>; print $gh $_;
  close $fh, $gh;
}