Using FTP in a Bash Script

#!/usr/bin/perl -w
use strict;
use Net::FTP;
my $server='your IP or domain;
my $user="username";
my $password="password";
my $dir="your directory";
my $file="/your/file";
my $success="true";
my $filetran="true";

#This dumps the mysql tables for backup
`mysqldump -u username --password=password -Aal > /var/lib/mysql/backup.sql`;

# This should be on one line.
`tar cvf /tmp/malegal.tar /home /www /var/lib/mysql /etc/httpd/conf /etc/httpd/logs; gzip --force --best /tmp/malegal.tar`;

my $ftp=Net::FTP->new($server) or $success="false";
$ftp->login($user, $password) or $success="false";
$ftp->pasv() or $success="false";
$ftp->binary() or $success="false";
$ftp->cwd($dir) or $success='false';
$ftp->put($file) or $filetran="false";
$ftp->quit;

my $reason;
my $test="true";

if ($success eq "false"){$reason .="Unsuccessful login\n\n";
        $test="false";}
if ($filetran eq "false"){$reason .="Unsuccessful file transfer\n\n";
        $test="false";}

if ($test eq "false") {
        my $subject="Backup of Server Failed !";
        my $to='you@domain.com';

        BEGIN {
                $ENV{PATH}="/bin:/usr/bin";
                delete @ENV{qw(IFS CDPATH ENV BASH_ENV) };
                }
        open MAIL,"| /usr/lib/sendmail -t -i -F'Your Website' -f'web\@domain.com'" or dienice("Couldn't open sendmail $!");
        print MAIL "To: $to\n";
        print MAIL 'Reply-To: web\@domain.com\n';
        print MAIL "Subject: $subject\n\n";
        print MAIL $reason;
        close MAIL or die("Error closing sendmail: $!");
}