Perl script to copy a file. Not really useful, but maybe someone might benefit from it..?