#!\usr\bin\perluse warnings;use strict;use DBI;my $dbh=DBI->connect('dbi:mysql:test','root','password') || die "Error opening database: $DBI::errstr\n";print "Hello\n";$dbh->disconnect || die "Failed to disconnect\n";print "Goodbye\n";