#!/usr/bin/perl `cp file1 file2` #### #!/usr/bin/perl `sed -i '3i\ hai' file1`