Well, I have this script that I have been messing with and adding random features to lately. The problem is when I added this one subroutine today I get an error. It's basically a blank error and all it says is

Uncaught exception in user code:
[download]

Nothing else, no helping error for me to find out what the problem is. Here is the subroutine.

sub weather{
    no strict;
    my $weather = new Geo::Weather;
    my $zip_code= param('zip_code');
    if($zip_code && $report){
        $zip_code =~ s/\D//ig;
        $zip_code =~ s/\d{6,}//;
        if($report eq 'Temperature'){
            my $current = $weather->get_weather($zip_code);
            print "The current temperature is $current->{temp} degrees
+\n";
        }elsif ($report eq 'Full'){
            $weather->get_weather(');
            print $weather->report();
        }else{
            print "Not valid"; # Just for security
        }
    }else{
        print "Enter your zip code, please.";
        print start_form;
        print textfield(-name=>'zip_code',maxlength=>'5');
        print "What kind of report do you want?";
        print popup_menu({-name=>'report',-value=>['Temperature','Full
+'],-default=>'Temperature'});
        print hidden('node','weather');
        print submit(-value=>'Submit');
        my $report  = param('report');
    }
}
[download]

I have no idea what is wrong here so PLEASE help me. PS. I'm using CGI.pm and Geo::Weather. just FYI. Thanks in advance.

Wanna be perl hacker.
Dave AKA damian
I encourage you to email me