Perl Reddit source

#ALPHA Test development program to poll for new Reddit user mail.
#
#
#Developed by knivesngunz 2012
##############################
##############################
use Device::SerialPort;

$serialport = "/dev/ttyACM1";


$port = Device::SerialPort->new($serialport);
$port->databits(8);
$port->baudrate(9600);
$port->parity("none");
$port->stopbits(1);
$port->dtr_active(0);


$user = "INSERT YOUR USERNAME HERE";
$pass = "INSERT YOUR PASSWORD HERE ";

print "[+] Housekeeping first...\n";
`rm Cookie.txt`;
`rm about.json`;


print "[+] Attempting to establish login session...\n[   +    ]\n";
system("curl -d user=$user -d passwd=$pass -c Cookie.txt http://www.reddit.com/api/login");
print "\n[   +   ]\n";


while (1){
        print "[+] Logged in as $user\n";
        print "[+] Getting JSON details...\n";
        `wget -q -O unread.json --load-cookies=Cookie.txt http://www.reddit.com/message/unread/.json`;

        print "[+] Parsing JSON info...\n";
        open MYFILE, "<unread.json";
        $JSONinfo = <MYFILE>;
        if ($JSONinfo =~ /author/){
                $count = 0;
                $count++ while ($JSONinfo =~ /author/g);
                if ($oldcount != $count){
                        $oldcount = $count;
                        &turnoffalert;
                        sleep(1);
                        &turnonalert;
                        $firstalert=0;
                }
                print "[+] $count NEW MESSAGE(S)\n";
                $firstalert=1;

        }
        else {
                print "no mail..\n";
                &turnoffalert;
                $firstalert = 0;
                $oldcount = 0;
        }
        sleep(10);      #       THIS IS HOW LONG TO WAIT BEFORE WE TRY TO POLL AGAIN!!! Always leave at 30 seconds or greater!
        system("clear");
}


sub turnonalert() {
        #if ($firstalert == 0){
                $port->write("1,0,\r");
        #}
}

sub turnoffalert() {
$port->write("0,0,\r");
}