sub USERID
{
   $USERID = Utility::Single_Input('Input Account Name', $USERID, $REQUIRED);
   print "UserInput entered is $USERID \n";
}