http://www.perlmonks.org?node_id=79708


in reply to easy as

Well, it looks to me like you're trying to convert a C++ program to Perl. If that's the case, there isn't a CIN and COUT in Perl. Use these instead:

use strict; print "Insert Employee Number: "; # Prompts the user my $empNum = 1; while ($empNum) { $empNum = <>; # Gets input from STDIN print "The employee number you enetered was: $empNum\n"; print "Insert Employee Number: "; # Prompts the user }
If you're still having trouble with things like this, check out Tutorials - there's lots more help there.

Update: The old code prompted for an empty line - use this instead. Sorry about that.

Good luck,
- Sherlock

Skepticism is the source of knowledge as much as knowledge is the source of skepticism.