This Perl script is copy files from given source directory to given target directory according to given scp