... die "Can't open file " . $out_file . "\n$!\n";