Select Code to Download

### file Myconnection.pl
use DBI;
{
...
        DBI->connect($dbs, $user, $pass, $opts);
    }
}

use lib '/home/user/lib/perl5'; # or wherever
use 'Myconnection.pl';

my $dbh = myconnect();