use Net::FTP;
$ftp = Net::FTP->new("6.1.4.9", Debug => 0)
or die "Cannot connect to 6.1.4.9: $@";

$ftp->login("login",'pwd')
or die "Cannot login ", $ftp->message;

$remote = "lps";
print $ftp->pwd ();
	
 $ftp->cwd($remote)
or die "Cannot change working directory ", $ftp->message;
$ftp->put("*.log")
  or die "put failed ", $ftp->message;
    $ftp->quit;