#!/usr/bin/perl my $new_file_name = shift; open my $OFH, '>', $new_file_name; print $OFH <