#!/usr/bin/perlusestrict;usewarnings;useFile::Copy;die"wrong number of arguments"if@ARGV!=2;my($source,$target)=@ARGV;if($^Oeq'msys'){# make a windows path look like an msys path if necessary$source=~s!^([A-Za-z]):!'/' . lc($1)!e;$source=~s!\\!/!g;}die"$0: failed copy of $target"if-f"$target.fail";copy($source,$target)ordie"couldn't copy $source to $target: $!";printSTDERR"$0: archived $source to $target successfully\n";