Try to use a different constructor, for activating debug and increasing/playing with timeout, like

our $mysql = Net::MySQL->new(
    hostname => "$Hostip",
    database => 'DB',
    user     => 'test123',
    password => 'test123',
    debug    => 1,
    timeout  => 120,  # seconds
);
[download]