#!/usr/bin/perl
use Net::FTP;
$ftpobj = Net::FTP -> new ("station1")or die "Cannot connect to station1:";
print "Sending files to station1\n";
$ftpobj -> login("stat1","stat1pass") or die "login failed ", $ftpobj->message;
$ftpobj -> cwd ("/usr/local/bin") or die "cwd failed ", $ftpobj->message;
$ftpobj -> put ("/home/raj/myc/fm/backup/inside.pl") or die "put failed ", $ftpobj->message;