Select Code to Download

#!/usr/bin/perl

...
close(FILE);
print $hs->parse(@file);

#!/usr/bin/perl -w

...
my $content = get("http://www.yahoo.com");
my $hs = HTML::Strip->new();
print $hs->parse($content);