Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my $file = "/www/htdocs/shock/history.php";
my @words = buildLinks($file);
print @words;

package BuildLink;

...

1;