Select Code to Download

#!/usr/bin/perl

...
print "<br><a href=\"home.cgi\">home</a>\n";
print end_html;

#!/usr/bin/perl

...

print end_html;

#Initiate the connection to the database
my $dbh = DBI->connect("DBI:mysql:database=DATABASE;host=localhost", "
+USER","PASS",{'RaiseError' => 1});
...
my $session = new CGI::Session(undef, $cgi, {Directory=>'/tmp'});