Select Code to Download

my $stop = 0;
$SIG{'INT'} = sub { $stop = 1 };

print "->CQ username: ";
while (<STDIN>){
...
  last;
}
chomp ($username = <STDIN>);