usr/bin/perl # программа для генерации картинки с погодными данными # с кисловодской станции для сайта http://observ.pereplet.ru/ use GD; use LWP::Simple; use Date ::Manip; use lib '/home/rel/ivan/nasa/MIME-Lite-3.01/blib/lib/'; use MIME::Lite; use strict; $SIG{ALRM}= sub{die timeout }; my ($ date ,@d,$x1,$y1,$im,$tmp,@m,$byte,$ SkyTem ,$ SenTem ,$ AmbTem ,$ ...