Hi ! I'm afraid that your last statement is not quite right ... at least with the latest version of perl. Terje Bless wrote: > > [SNIP] > if ($UserPassword eq $Data[1]) { > print "Password accepted.\n"; > &MainMenu; > # ^________^ 4&4 may not be neccesary, but the 4;4 is. > } else { '&' is definitely necessary (did you test your code ???) here. The semicolon may be left out, because the subroutine call is the last statement in the if-block and it's followed by a closing brace '}'. (That's what I found out when testing the code with perl 5.002 and IRIX 5.3.) Bye, Eike ===================================================================== Eike Grote, Theoretical Physics IV, University of Bayreuth, Germany email : eike.grote@theo.phy.uni-bayreuth.de URL : http://btrzxa.fddi.uni-bayreuth.de/~btpa25/ =====================================================================