Can someone explain this perl script?

=**************************************
    = Name: Administrator Log Backup Script
    = Description:This code was original mad
    =     e for personal use to monitor all my lin
    =     ux log files and keep them safe
    = By: Damian myerscough
    =
    = Returns:A report which will be encrypt
    =     ed and uploaded to an FTP server
    =
    = Assumes:you will need to know your Gnu
    =     PG ID for encrypting
    =
    =This code is copyrighted and has    = limited warranties.Please see http://w
    =     ww.Planet-Source-Code.com/vb/scripts/Sho
    =     wCode.asp?txtCodeId=587&lngWId=6    =for details.    =**************************************
   
    #!/usr/bin/perl -w
    #
    #
    use Net::FTP;
    #
    # System commands
    #
    $uname = `uname -a`;
    $proftpd = `tail /var/log/proftpd.log`;
    $secure = `tail /var/log/secure`;
    $lastlog = `lastlog`;
    $w = `w`;
    $date = `date`;
    $df = `df`;
    #
    # Split The Date up
    #
    @Time = split(/ /, $date);
    @NewTime = split(/:/, $Time[3]);
    #
    # Create a report
    #
    open(LOGFILE, ">>/home/*******/system.log") || die "Could not create file $!\n";
    print LOGFILE ("+--------------------------------------------------------------------+\n");
    print LOGFILE (" System Name: $uname\n");
    print LOGFILE ("+--------------------------------------------------------------------+\n");
    print LOGFILE (" Date: $date\n");
    print LOGFILE ("+--------------------------------------------------------------------+\n");
    print LOGFILE (" Secure: $secure \n");
    print LOGFILE ("+--------------------------------------------------------------------+\n");
    print LOGFILE (" Proftpd: $proftpd \n");
    print LOGFILE ("+--------------------------------------------------------------------+\n");
    print LOGFILE (" Lastlog: $lastlog \n");
    print LOGFILE ("+--------------------------------------------------------------------+\n");
    print LOGFILE (" Hard Disk: $df\n");
    print LOGFILE ("+--------------------------------------------------------------------+\n");
    print LOGFILE (" System ustage: $w \n");
    print LOGFILE ("+--------------------------------------------------------------------+\n");
    close(LOGFILE);
    #
    # Securly encrypt file
    #
    system("gpg -e -r 0xF297A73E /home/*****/system.log");
    #
    # Securly shred log files and make unrecoverbly
    #
    system("shred -n 1024 /home/********/system.log");
    system("rm -rf /home/********/system.log");
    $FTP = Net::FTP->new('ftp.tripod.com', Debug => 0) || die "Could not connect to FTP server: $@\n";
    $FTP->login("username", '******') || die "Could not login: ", $FTP->message;
    $FTP->put('/home/*******/system.log.gpg', 'system.log' . $NewTime[0] . $NewTime[1] . $NewTime[2] . '.gpg');
    $FTP->quit;
    #
    # Delete The encrypted file
    #
    system("rm -rf /home/******/system.log.gpg");