Assuming I understand correctly, you want to execute rz on the remote side and sz on the local side. You can do this with something similar to the spawn() routine given in the Net::Telnet docs. Here's something I just cobbled together that is fairly close to what I think should work (completely untested): 


# get the remote end ready to receive
$nt->print "rz\r";

use IO::Pty ();
$pty = new IO::Pty or die $!;

## Execute sz in another process.
unless ($pid = fork) {  # child process
   die "problem spawning program: $!\n" unless defined $pid;

   ## Disassociate process from existing controlling terminal.
   use POSIX ();
   POSIX::setsid or die "setsid failed: $!";

   ## Associate process with a new controlling terminal.
   my $tty = $pty->slave;
   my $tty_fd = $tty->fileno;
   close $pty;

   ## Make stdio use the new controlling terminal.
   open STDIN, "<&$tty_fd" or die $!;
   open STDOUT, ">&$tty_fd" or die $!;
   open STDERR, ">&STDOUT" or die $!;
   close $tty;

   exec "sz @filenames" or die "problem executing sz\n";"
}

[download]

In any case, that's the gist of how it should work.

update: oh, this assumes that you have sz on your end. You said the remote side was a linux box. If the local side is also linux, this should work fine. If you're running windows or something else, caveat lector! :-)

duff

In reply to Re: Zmodem and Net::Telnet by duff
in thread Zmodem and Net::Telnet by splinky

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.