my $cgi = CGI->new; print $cgi->header('text/html'); my $name = $cgi->param('name');
my $dbh = DBI->connect($dsn, $attr); my $sth = $dbh->prepare($sql);
open my $fh, '>', $file or die $!; print $fh 'Hello World!';