Select Code to Download

#!/usr/bin/perl
#
#
...
    for my $parm ( keys %passed_params ) {
        $self->{$parm} = $passed_params{$parm};
    }

    my $url =
        'http://www.meteoalarm.eu/index.php?lang=&AT='
...
    delete $self-> {'type'};
    return $self;
}