#!/usr/bin/perl
use strict;
use DBI;

my $dbh = get_dbh();
my ($ver) = $dbh->selectrow_array('SELECT VERSION()');
printf "OS         : %s\n",$^O;
printf "Perl       : %s\n",$^V;
printf "DBD::MySQL : %s\n",$DBD::mysql::VERSION;
printf "Server     : %s\n",$ver;

sub get_dbh {

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