perl -e '$o="this.fil"; system("/usr/bin/scp", $o, "steve\@hostname:/home/steve/");'