sub user{
    print "Account name:\n";
    while (<>){
           $username=$_;
           chomp $username;
           &query;
           }
} #corrected comile error