#Here's a quicky password generator sub. 
#Great for account creation
# Usage: my $Password = Pass();

sub Pass
   {
      
      my $Num;
      my $Other;
      my $Pass = "";
   
      foreach $Num (1..8)
      {
         $Other = rand 122;
         $Other =~ s/\..*//; #ditch the decimal part
         while ( ($Other < 48) 
            || (( $Other > 57) && ( $Other < 65))
            || (( $Other > 90) && ( $Other < 97)))
         {
            $Other = rand 122;
            $Other =~ s/\..*//; #ditch the decimal part
         }
         
         $Pass = $Pass . chr $Other;
      }
      return($Pass); 
   }