#!/usr/bin/perl
use warnings;
use strict;

&get_web_files;

sub get_web_files {
   use Fatal qw(open close);
   use LWP::Simple;
   use HTTP::Status;
  
   foreach my $num ( 89 .. 99 ) {

      my $baseURL = 'http://articles.adsabs.harvard.edu/cache/seri/ASPC./0047/600/';
      my $localfile = '00000'.$num . '.000.gif';
      my $URL       = $baseURL . $localfile;
      my $rc        = mirror( $URL, $localfile );
      warn status_message( $rc ) if is_error( $rc );
   }

}
#http://articles.adsabs.harvard.edu/cache/seri/ASPC./0047/600/0000089.000.gif