my $validExp = 0;
    while (!$validExp)
    {
        print
          "When would you like this account to expire? Enter N days \(between 90 and 365\) or never\n";
        chomp($expire = <>);
       
        if ($expire ge 90 && $expire le 365)
        {
            print "account will expire in: $expire days\n";
            $validExp = 1;
        }
        elsif
        ($expire eq "never")
        {
        print "account will expire: $expire\n";
                    $validExp = 1;
        }
        else
        {
            print
              "Invalid entry. Enter N days \(between 90 and 365\) or never\n";
        }
       
    }