The problem is, it doesn't allow input for the $message. It immediately prints the destination line and then waits for that input. Do I need to clear STDIN or something?Please help me!!!sub SendMessage{ my $self=shift; print "Please enter message:\n"; my $message=<STDIN>; print "Please enter destination of message:\n"; my $to=<STDIN>; }
thanks, anon
In reply to clear STDIN by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |