my $out = qq(var adeldesc = "$adeldesc"\n);

##</code><code>##

my $outfile = '/home/aml33704/public_html/weather.js';

##</code><code>##

open W, ">", $outfile or die "Could not open $outfile for writing:$!\n";