Perl script for old weather station