#!/usr/bin/perl
use File::Copy;
copy( 'file1', 'file2' );