9 print header()
10
11 my $dbh;
12 my $sth;