use strict;

use LWP::Simple;

my $url  = 'https://192.168.1.1/cgi-bin/get-sae-log.cgi?host=thingy&date=20090703';
my $file = 'document.bzip2';

my $rc = getstore($url, $file);

if (is_success($rc)) {
   "Success - saved [$url] to [$file]\n";
} else {
   "Error - [$rc] error in getting [$url]\n";
}