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

print("Type your message now.  End with a dot on a line by itself.\n");
while($x ne "\.\n"){
$msg .= $x;
$x = (<STDIN>);
}
$y = reverse($msg);
&zw("$y\n");

sub zw {
	local($mesg) = @_;
	$opts = join(' ', @ARGV);
	open(ZEP, "|zwrite $opts");
	print(ZEP $mesg);
	close(ZEP);
}