$ cat script.pl
system("rcp file host:/tmp");
$ rcp file host:/tmp
$ perl script.pl
$