my $links = 'h:\perl scripts\links.txt';

##</code><code>##

my $LINKS = 'h:\perl scripts\links.txt';

##</code><code>##

sub LINKS { return 'h:\perl scripts\links.txt'; }

##</code><code>##

undef $/;

##</code><code>##

sub middle {
	my @output = @_;
	print while @output;
}