Экспорт котировок. Скрипт

Ниже приведён скрипт на языке perl. Этот скрипт помогает мне получать дневные котировки интересующих меня ценных бумаг.

#!/usr/bin/perl

use strict;
require LWP::UserAgent;

my ($mday,$mon,$year) = (localtime(time))[3,4,5];
$mon++;
$year += 1900;
$mon =~ s/(\d+)/0$1/ if ($mon < 10);

my $ua = LWP::UserAgent->new;
$ua->timeout(10);

for (my $i = 0; $i <= $#ARGV; $i++) {
        my $res = $ua->get("http://export.rbc.ru/".
              "free/micex.0/free.fcgi?".
              "period=DAILY&tickers=".
              $ARGV[$i].
              "&d1=01&m1=01&y1=1992&d2=".$mday.
              "&m2=".$mon."&y2=".$year.
              "&lastdays=0&separator=,".
              "&data_format=METASTOCK&header=1");

        die "HTTP request returns ".
           $res->status_line
              if (!$res->is_success);

        open FH, ">".$ARGV[$i].".prn" or
              die "Can't open file for write: $!";

        #
        # Wealth-Lab don't like empty strings,
        # so drop'em all from source file.
        #

        foreach ($res->content) {
              chomp;
              my $open = (split /,/)[3];
              next if ($open eq '');
              print FH $_, "\n";
        }
        close FH;
}