If-Anweisung spinnt oder ich...

Hab heute mal kurzfristig beschlossen mich ein wenig mit Perl zu beschäftigen. Habe mir einige Perlscripte angeschaut, und dann schonmal in die Tasten gehämmert. Hier aber komme ich nicht mehr weiter, weil die If Anweisung irgendwie nie richtig ausgeführt wird. Hier einfach mal der Code:

Code:

---

# !usr/bin/perl 
hello();
auth();
name (); 
if ($name == "admin")   
  {    print $name." requires a sudo-password\n please enter.. ";    } 
hello (); 
sub hello    {    print "Hello $name \n";    } 
sub auth    {    print "If u want, tell me ur name.. ";    }; 
sub name    {    chomp ($name = <> ) ;          }; 
__END__

---

Bitte um schnelle Verbesserung, mag weitermachen im Kontext.
Danke im Voraus
atbash

if ($name eq "admin")
Und dein Code ist sehr unsauber formatiert.

Danke sehr der Herr.
Sind meine ersten Schritte in Perl, und war auch mehr eine Spielerei.

Das Codefeld, hat alles durcheinander geworfen, und ich hab nur schnell ein paar Leerzeichen gesetzt.

Grüße
atbash