#! perl -sw
use strict;

require 'test2.pl';

print weather();

##</code><code>##

#! perl -sw
use strict;

sub weather {
	# do stuff to gen data
	return 'This is the generated data';
}

1;

##</code><code>##

C:\test>test
This is the generated data
C:\test>