!/usr/bin/perl
use strict;
use DBI;
use DBD::mysql;

printf "OS         : %s\n",$^O;
printf "Perl       : %s\n",$^V;
printf "DBD::mysql : %s\n",$DBD::mysql::VERSION;
print join "\n",@INC,"\n";

my $dbh = get_dbh();
my ($ver) = $dbh->selectrow_array('SELECT VERSION()');
printf "Server     : %s\n",$ver;

sub get_dbh {
  my $server = 'localhost';
  my $database = "pm"; 
  my $user = "user"; 
  my $pw   = "*****";
  my $dsn  = "dbi:mysql:$database:$server:3306"; 
  my $dbh  = DBI->connect($dsn, $user, $pw, 
     { RaiseError=>1, AutoCommit=>1 } );
  return $dbh;
}