wow, thanks. this is the closest to what i wanted to do first, so i'll
use this.
> my $response = 0;
> while ( $response != 1 and $response != 2 and $response != 3 ) {
> print "What would like to do?\n";
> print "1. Start a new file\n";
> print "2. Append to a file\n";
> print "3. Close a file\n";
> print "Enter a number: ";
> chomp($response=<STDIN>);
> }
>> if ( $response eq '1' ) {
> [snip]
==========================================================================
======
"One disk to rule them all, One disk to find them. One disk to bring
them all and in the darkness grind them. In the Land of Redmond
where the shadows lie." -- The Silicon Valley Tarot
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
