Select Code to Download

#!/usr/bin/perl -w use strict;

...
        return \ @record;
    }
}

my $searchresult = search(
   part     => $part,
...
   close PARTS_DB;
   return $found ? \@record : undef;
}

sub search {
   ... yadda yadda yadda ...
...
my @searchresult = search(... yadda yadda ...);

print @searchresult ? "got it: @searchresult\n" : "nadda\n";

while (my $record = <DATA>)  {