valider input

Hejsa..

Jeg vil gerne se om der er indtastet noget overhovedet.. Hvis ikke skal der kaldes en funktion..

Noget ala dette:
print "Enter password: ";
my $pass= <STDIN>;
if ($pass =~ "\n") { my $pass = get_password(); }
print "1:$pass";

Men i min print er der ingenting hvis jeg ikke skriver noget i <STDIN>

Any one..