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