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");
}

##</code><code>##

print(STDERR "TAR START...\n");
system("tar -cmvzf /tmp/large.tgz /tmp/largedir");
print(STDERR "TAR END.\n");