use strict;

use Net::SSH::Perl;
use UNIVERSAL;  # <-- THIS LINE CAUSES THE PROBLEM

my $host = 'XXXXXXX';
my %opts = (port => 22, debug => 1, protocol => 2);

my $ssh = Net::SSH::Perl->new($host, %opts);