Select Code to Download

    #!/usr/bin/perl
    use strict;
...
        and not $nets{$1}++ 
        and print "$1\n" 
      while <STDIN>;

    #!/usr/bin/perl
    use strict;
...
    /$nets/
        or print
      while <STDIN>;

    perl script1.pl < file1 > file2
    perl script2.pl file2 < another-file

    #!/usr/bin/perl
    use strict;
...
    /$nets/
        or print
      while <STDIN>;

    perl script1+2.pl file1 < another-file