package my_app::db;
# file ./my_app/db.pm

use strict;
use DBI;

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

1;