#!/usr/bin/perl

use strict;
use warnings;

use LWP::Simple;

#open text file and fill array
open(MYINPUTFILE, "<A-list") or die "Can't open A-list: $!"; 
my(@A_in) = <MYINPUTFILE>; # read file into list

#remove whitespace
my @A_list = map { s/^\s+//; s/\s+$//; $_ } @A_in;

close(MYINPUTFILE);


#fetch each webpage
foreach my $num(@A_list) {
    chomp $num;

    my $url =
      "http://www.hkjc.com/english/racing/horse.asp?HorseNo=$num";

    my $content = get $url;
    die "Couldn't get $url" unless defined $content;

    print $content;
}