print "->CQ username: ";
while (<STDIN>){
  if ($stop == 1){
    return(0);	
  }
  last;
}
chomp ($username = <STDIN>);