use Time::Local; use FileHandle;
Add:
use Term::ReadLine; my $term = new Term::ReadLine 'Program name';
And change this:
my $choose_table= <STDIN> ; #user has to key in Change_Request,call_req,Both read(STDIN,call_req ) chomp $choose_table;
to that:
my $choose_table = $term->readline('Some question: ');
(I'm not sure what "read(STDIN,call_req )" is for. It shouldn't even work without a semicolon.)
Does it work now? You have to install Term::ReadLine::Gnu and Term::ReadLine if you don't have it installed.
-zsdc.
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
