Select Code to Download

#!/usr/bin/perl -w

...
open( OUT, ">", "$txtfile.reduced" ) or die "open failed on $txtfile.r
+educed: $!";
print OUT "$LAT, $LON, $PRES, $HGHT, $TEMP, $DEWP, $DIR, $SPD\n";
close OUT;