Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
77822    7874    CA84985    54E
77884    8543    CA84985    54E
77809    7211    CA84985    54E
  2. or download this
    77875    7725    CA84985    54E
77822    9908    CA84985    54E
77822    7874    CA84985    54E
  3. or download this
    while (<DATA>) {
  my $code = (split)[1];
...
    }
  }
}
  4. or download this
    while (<DATA>) {
  my $code = (split)[1];
...
    }
  }
}