Perl - Parse Scripts

#!/usr/bin/perl
############ Scripted by Daniel ############
use warnings;
use strict;
#
require LWP::UserAgent;
use MIME::Lite;
############ Declaring vars ############
my $HOT_LATEST = `curl --silent http://www.hotscripts.com/new/|egrep -o '<a href="/listing/(.*)+'|head -1|cut -d'>' -f2|cut -d'<' -f1`;
my $COOL_LATEST = `curl --silent http://coolwebscripts.com/|grep -o "$HOT_LATEST"`;
my $HOT_DATE = `curl --silent http://www.hotscripts.com/new/|egrep -o '[0-9]+\/[0-9]+\/[0-9]+'|head -1`;
our $TO = "YOUR_EMAIL_ADDRESS";
our $FROM = "script\@notifier";
our $SUBJECT = "New Scripts";
our $MESSAGE = "New scripts available at http://www.hotscripts.com/new/\nThe latest one was added on $HOT_DATE\n";
############ Chomping the newline ############
chomp($COOL_LATEST);
############ Creating socket to check if hotscripts is up ############
my $checkURL = LWP::UserAgent->new; $checkURL->timeout(20);
my $answer = $checkURL->get('http://www.hotscripts.com/new/');
        if ($answer->is_success) {
                ############ If negative ############
                if (! $COOL_LATEST) {
                        send_email($TO, $FROM, $SUBJECT, $MESSAGE);
                }
        }
############ mail function ############
sub send_email {
        local ($TO, $FROM, $SUBJECT, $MESSAGE) = @_;
                        $MESSAGE = MIME::Lite->new(
                        From => $FROM,
                        To => $TO,
                        Subject => $SUBJECT,
                        Data => $MESSAGE
                        );
        MIME::Lite->send('smtp', '__SMTP_SERVER__', Timeout => 60);
        $MESSAGE->send();
}