#!/afs/athena/contrib/perl/perl

open(ZWRITE,"| zwrite @ARGV");

@ARGV = ();

system('stty litout');

while (<>) {
    last if /^\.$/;
    print ZWRITE $_;
    print "\r";
}
system('stty -litout');

#print ZWRITE "ckclark -m hi\n";
