print "Scan in Bar Code: ";
my $bar_code = <STDIN>;
chomp $bar_code;

if ( $bar_code ) {
    print "\n";
}
else {
    select(undef, undef, undef, .5);
    print "\r";
}