#!/usr/bin/perl `cp file1 file2`