Select Code to Download

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

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