Select Code to Download

print   $cgi->header(-cache_control=>"no-cache, no-store, must-revalid
+ate"), # create the HTTP header
                $cgi->start_html(-title=>"$title",
                -author=>'webmaster at digioso.org',
                -meta=>{long list of meta information here.........,
                -style=>{'src'=>'http://www.digioso.org/style.css'}); 
+# start the HTML

#!/usr/bin/perl -w

use warnings;
...

DB::close_db();
exit 0;

#!/usr/bin/perl -w

...
}

exit 0;

#!/usr/bin/perl -w

use warnings;
...
}

1;