Select Code to Download

$html =~ s/something/something else/sgi;
print "your html is currently:\n\n$html";

#!/usr/bin/perl -w
use diagnostics;
...
    close (PAGEOUTPUT);
    print "Finished processing $pagename...<BR><HR><BR>\n";
}