Select Code to Download

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

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

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

undef $/;

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