#! perl -sw use strict; require 'test2.pl'; print weather();