Select Code to Download

sub search
{
     my ($PartNumber) = @_;
...

     return;  # Returns empty handed
}

$|++;

...
     print "PartNumber? ";
     chomp($what = <STDIN>);
} while (!search($what));