if ( $sshconn = Net::SSH::Perl->new("localhost", %params) )
{
$sshconn->login('op');
$sshconn->register_handler("stdout", sub {
my($outchannel, $outbuffer) = @_;
print(FOUT $sshconn->type);});

$sshconn->register_handler("stderr", sub {
my($errchannel, $errbuffer) = @_;
print(FERR $errbuffer->bytes);});

($ssherr, $ssherr, $sshexit) = $sshconn->cmd("/tmp/bufile.pl");

$sshconn->cmd("exit");
}