$title

package template; sub connect_db { my $conn = 'DSN=tomato;UID=IUSER;PWD=webbrowser;'; my $db; if (!($db = new Win32::ODBC("DSN=tomato;UID=IUSER;PWD=webbrowser;"))) { print "Error connecting to ODBC ($conn)
"; print "Error: " . Win32::ODBC::Error() . "\n"; exit; } return $db; } sub disconnect_db { my ($db) = @_; $db->Close(); } sub print_header { my ($title) = @_; print <

$title

Cornell University
Solanaceae
Genome Network

tomatillo.cit.cornell.edu

About

$title

HEADER } sub print_footer { print <

FOOTER } return 1;