#!/usr/bin/perl -w


use strict;
use DBI;


my $db_name = "DBI:mysql:antimicro_peptides"; 
my $db_user = "root"; 
my $db_pass = ""; 

my $dbh = DBI->connect("$db_name","$db_user","$db_pass") || die "Database connection not made: $DBI::errstr";
print "Connection established \n";