package MyConnect;
use DBI;
use strict;
sub salesDB {
    my ($sales_dbname, $sales_dbhost) = split(/\@/,$ENV{'SALESDB'});
    my $sales_dsn = "DBI:mysql:database=$sales_dbname;host=$sales_dbhost";
    my $sales_dbh=DBI->connect($sales_dsn, "username", "password");
 if (!defined($sales_dbh)) {
   print "\nerror: There is a problem connecting to the MySQL database:\n";
   print DBI->errstr;
   print "-" x 25 . "\n";
   return;
 }
    return $sales_dbh;
}
1;