sub user{
    print "Account name: ";
    $username = <STDIN>;
    while ($username == ""){
           print "Account name: ";
           $username = <STDIN>;
    }
    &query
}