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