This may not be the greatest code as I wrote it a while ago, but see if this helps.

#!/usr/bin/perl

use strict;

my $resfile = 'ground.txt';
my $comfile = 'grndcomm.txt';
my $zonefile='delzone.txt';

my @res;
my @com;
my @zone;

&buildrates;
&buildzones;

sub buildrates{
    my $line;
    open FH, $resfile;
    while ($line = <FH>){
           my ($index, $z2, $z3, $z4,
               $z5, $z6, $z7, $z8)= split(',',$line);
           $res[$index]= [$z2,$z3,$z4,$z5,$z6,$z7,$z8];
           }
    close FH;
    open FH, $comfile;
    while ($line = <FH>){
           my ($index, $z2, $z3, $z4,
               $z5, $z6, $z7, $z8)= split(',',$line);
           $res[$index]= [$z2,$z3,$z4,$z5,$z6,$z7,$z8];
           }
    close FH;
    }


sub buildzones{
    my ($x, $y, $line);
    my $i=0;

    open FH, $zonefile;

    while ($line = <FH>){
                         ($x,$y) = split(',',$line);
                         if (length($x)<=3){ $zone[$x]=$y }
                         else{
                              (my $temp, $x) = split('-',$x);
                              for ($temp..$x){ $zone[$_]= $y; }
                              }
                         }
    }
[download]

When I wrote this, I just grabbed the files off the UPS website. I believe that they were available in a plain text format, but it's been a while so I don't remember for sure.

Hopefully this will help in some way. :)

There is no emoticon for what I'm feeling now.

If the files were on the website, you could always add code to have LWP::Useragent go and get them. I can't imagine that those files would be stashed on the secure server.

</ajdelore>

You're right. I realized after I thought about it a bit that the poster was asking about doing that over a secure server, but what I did should work.

I wrote that code about a year ago and hadn't discovered the LWP library at the time. Using LWP and mirroring to check for newer versions would probably be the way to go. And the LWP suggestion is going to get implemented as soon as I get a bit of free time. Thanks for that!

There is no emoticon for what I'm feeling now.

I am not at all a pro with ActiveState. In fact, I don't even use windows for perl programming. Now that we have that out of the way:

openssl is required for Crypt::SSLeay to work. You can build it with pretty much any WIN32 C compiler, although some editing may be required.

Of course, there's a note within the module's pod:

[!!! NOTE for Win32 users, few people seem to be able to build
  W  Crypt::SSLeay successfully on that platform.  You don't need
  I  to because ActiveState has already compiled it for you,
  N  and is available for their perl builds 618 & 522 as a ppm
  3  install.  It may also be available for their latest build.
  2  For problems with this, please contact ActiveState.
  !!!          Please see http://www.activestate.com/
[download]

As luck would have it, having looked to see if there's a ppm available, I discovered that there isn't. :-/

Update: Using the oracle, I've found a place that offers a Crypt::SSLeay ppm and it is available through this link provided in this post.

Hope this helps.

antirice    
The first rule of Perl club is - use Perl
The ith rule of Perl club is - follow rule i - 1 for i > 1