chomp (my $passwort = <>);
if ($passwort eq "geheimeswort") {# zeige alles an....}