my $stop = 0;
$SIG{'INT'} = sub { $stop = 1 };
##</code><code>##

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