10 lines
253 B
Perl
10 lines
253 B
Perl
#!\usr\bin\perl
|
|
|
|
use 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";
|