Select Code to Download

#!/usr/bin/perl -w

...

print end_html;
Bar->close;

package Bar;
use strict;
...
        $db->disconnect;
}
1;