You're only printing records with a source of "EventLog." There aren't any of those in the Application Log. I changed this:

if ($hashRef->{Source} eq "EventLog") {
                Win32::EventLog::GetMessageText($hashRef);
                print "Entry $x: $hashRef->{Message}\n";
}
[download]

to this:

#if ($hashRef->{Source} eq "EventLog") {
                Win32::EventLog::GetMessageText($hashRef);
                print "Entry $x: $hashRef->{Message}\n";
#}
[download]

and I got some output.
Dave