Tried to accept user response (one key stroke 0r so) to continue the perl segment, but learned that Term:ReadKey is not working under Win32. What else I can use? Please help.
The following is the one I am trying to achieve:
#!/usr/bin/perl -w
use CGI ‘:standard’,”-debug”;
use Tie::File;
use Term::ReadKey;
…
…
sub somthing{
…
print “Press any key to continue :”;
ReadMode ‘cbreak’;
while (1) {
$char = readkey(1);
last unless defined $char;
}
ReadMode ‘normal’;
…
}
…
…
# Main Body
$q=something();
print end_html();