#!/usr/bin/perl

use LWP::Simple;

my $url = shift @ARGV;

print( STDERR "\n\nUsage: get.pl \<URL\>\n~~~~~~\n\nURL _MUST_ be defined.\n\n") && 
      exit unless defined( $url);

my $indexhtml = get( $url );
my ($file, $filename);

if (defined($indexhtml)) {
    while ( $indexhtml =~ /\<a href\=\"([^\<]+?)\"\>([^\<]+?)\<\/a\>/i ) {
	$filename = $1;
	print "Getting \'$filename\'...\n";
	$file = get($url . $filename);
	if (defined($file)){
	    if (open( F, ">$filename")) {
		binmode(F);
		print F $file;
		close(F);
		print "We got \'$filename\' " . (-s $filename) . " bytes\n";
	    } else {
		print STDERR "Can't open $filename ($!)\n";
	    }
	} else {
	    print STDERR "Can't get \'$url$filename\'\n";
	}
	
	$indexhtml =~ s/\<a href\=\"([^\<]+?)\"\>[^\<]+?\<\/a\>//i
    }
} else {
    print STDERR "Can't get URL \'$url\'\n";
}


#print "\'$indexhtml\'\n";