open my $out, '>', 'new_file' or die $!;