#!/usr/bin/perl
use strict;
use DBI;
print "Example for RemoteHost DBI\n";
my $dsn=DBI->connect('dbi:mysql:metal;host=10.199.2.5');
my $prepare=$dsn->prepare("select * from MetalAtmDistance where PdbId like '1une');") ;
$prepare->execute();
while(my @arr=$prepare->fetchrow_array())
{
        print ;
}
~

Error:
DBI connect('metal;host=10.188.12.25','',...) failed: Can't connect to MySQL server on '10.188.12.25' (113) at RemoteHostDBI.pl line 5
Can't call method "prepare" on an undefined value at RemoteHostDBI.pl line 6