"use strict" is not enough. Try

#!/usr/bin/perl -w
use strict;
# your code follows
[download]

And the Perl compiler should tell you if a variable is not initialized