Add Perl script scpfile.pl