Perl Script hanging while connecting to Remote DB

[ksn murthy]

Hi,
I have a script which runs continuously(i put in while(1) loop) and inserts the data read from local DB into Remote Database .After inserting into RemoteDatabase the Db connection to remote databae was disconnected and script sleeps for 30 seconds after that it reconnects to remote database and inserts the new values.
I am connecting to remote database as below

my $dbh=DBI->connect('DBI:mysql:database='remotedb';host='remotehost';port=3306;mysql_connect_timeout=20','root','');

In doing so, some times my script is hanging for 2-3 hrs and I am losing some data.After debugging I found that my script is hanging at connecting to Remote Database.

Please tell me what might be the issue causing this hanging and what would be the solution.

Thank You,
K.S.N.Murthy