Select Code to Download

#!/usr/bin/perl
use Net::FTP;
...
$ftpobj -> login("stat1","stat1pass") or die "login failed ", $ftpobj-
+>message;
$ftpobj -> cwd ("/usr/local/bin") or die "cwd failed ", $ftpobj->messa
+ge;
$ftpobj -> put ("/home/raj/myc/fm/backup/inside.pl") or die "put faile
+d ", $ftpobj->message;