$date =~ m|(\d{1,2})/(\d{1,2})/(\d{4})|; 
($month,$day,$year) = ($1,$2,$3);
[download]

Augh. Use of $1 there without checking for the success of the match. Good way to uncover a bug or a security hole. Never. Don't.

At a bare minimum, add "or die" to the first line. Then I'll be happy.

-- Randal L. Schwartz, Perl hacker