Select Code to Download

#!/usr/bin/perl -w

...
print header, start_html();
print "<h1>Directory: $dir</h1>";
print end_html();