Select Code to Download

# code ripped from perlmonks.org/index.pl?node_id=9277
chdir($filepath) || die "Unable to chdir to filepath";
...
binmode STDOUT;
while (<READ>) { print;    }
close(READ);

my $q = CGI -> new();
print $q -> header( "text/html" ),
...
      $q -> p ( "<a href=../foo.html>Back to foo</a>"),
      $q -> p ( "<a href=../index.html>Bar Home</a>"),
      $q -> end_html;