my $doc = get ("https://testing/weather.pl");
my @foot=$doc;
$weather=join("",@foot);