Select Code to Download

    open(FILE, '>>fai.txt') ||  die $!;

    sub search {
        my ($file,$part_number,$revision) = @_;
...
        local $_;
        while (<FILE>) {
            # search line for $part_number