If-Anweisung spinnt oder ich...

[Atbash]

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:

# !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