Select Code to Download

# Make a file called linkable.pl with these contents
#!/usr/bin/perl -w
...
my $path = q~http://www.fooberry.com~;
print qq~<a href="$path/$n">$n</a>\n~;
1;

find . -name "*.txt" -exec ./linkable.pl {} \;