Select Code to Download

#!/usr/bin/perl
use HTML::Writer qw(xhtml1-transitional.dtd);
...
        } 
    };
} 1; # <-- indent level.. kinda odd at this position...

package HTML::Writer;
use strict;
...
    print $output;
}
1;