perl -e 'die "oops\n" unless(system("scp","test.pl","turo\@somewhere.over.the.rainbow:/tldk/") == 0); print "ok\n";'

##</code><code>##

perl -e '$site="turo\@somewhere.org"; die "oops\n" unless(system("scp","test.pl",$site) == 0); print "ok\n";'