Select Code to Download

{
   package Meteoalarm;
...
      return \%by_country;
   }
}

{
   package Meteoalarm;
...
   sub name     { shift->{name    } }
   sub warnings { shift->{warnings} }
}