package io;

sub input {
        local($foo);
        print(">>>");
        $foo = <STDIN>;
        chop($foo);
        $foo;
}

sub zme {
        local($message) = @_;
        open (ZME, "|zwrite -n -q -d -s 'PerlZephyr' $ENV{'USER'}");
        print(ZME $message);
        close(ZME);
}

sub anykey {
    print("\nPress Return To Continue...");
    $garbage=(<STDIN>);
}

sub gettext{
    local($msg);
    $msg = "";
        print("End with a . on a line by itself.\n");
        while($line ne ".\n") {
                $msg = $msg.$line;
                $line = (<STDIN>);
        }
	$msg;
    }
1;
