Objects Don't Scare Us

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!';