use strict;
use warnings;

open(IN, '<', $ARGV[0]);
open(OUT, '>', 'temp.txt');

while(<IN>){
  print OUT;
}