Select Code to Download

sub GetStaples {
        my $oem_PN = $_[0];
...
                 $title = $stream->get_trimmed_text("/title");
                 print "Title:".$tile."\n";
                 if ($title !~ /that was easy/){......................
+..

                                $pidStaples=fork();
                                        die "Cannot fork: $!" if (! de
+fined $pidStaples);
...
                                                GetStaples($ref->{OEM_
+PartNum},$ref->{Description});
                                                exit(0);
                                        }