Select Code to Download

while ( (print "Enter Part No and Qty: "), 
        (my $line=<STDIN>) !~ /^\s*q(uit)?\s*$/i  )
{...}