#!/usr/bin/perl -w

#you need to pass two file name through command line
my $oldfile = $ARGV[0];
my $newfile = $ARGV[1];


#you can do it by yourself 
#I am copying a text file, if I need to copy binary file it would be more complicated
open(IN,"<$oldfile") || die "Can't open $oldfile:$!\n";
open(OUT,">$newfile") || die "Can't open $newfile:$!\n";

while(<IN>)
{
    print OUT "$_";
}
close(IN);
close(OUT);

#use module
use File::Copy;
copy($oldfile,$newfile);



#use system 's copy
system("cp $oldfile $newfile");
#system("copy $oldfile $newfile");