my $ssh = Net::SSH::Perl->new($host, debug=>1, use_pty=>1 );
#-- authenticate
$ssh->login($user, $password);

##</code><code>##

$ perl -lE'
> use strict();
> say $x;
> '

$ perl -lE'
use strict;
say $x;
'
Global symbol "$x" requires explicit package name at -e line 3.
Execution of -e aborted due to compilation errors.
$