Shell Programming and Scripting

#!/usr/bin/perl

use strict;
use Net::FTP;
my $username="$ENV{USER}"; # or whoever the ftp account belongs to
my $password = "p455w0rd"; # Your actual password
my $error_string="FTP LOGIN SUCCESS";
my $ftp = Net::FTP->new("some.host.ip", Debug => 0)
             or  $error_string = "Cannot connect to some.host.name: $!";
$ftp->login($username, $password)
             or $error_string="Cannot login ", $ftp->message;
$ftp->quit;
print $log_file scalar (localtime(time)) ,. "$error_string\n";
exit 1;