#!/usr/bin/perl

use strict;
use warnings;
use LWP::Simple;

my $res_code = getstore('http://www.perlmonks.org/','index.html');

die "Download failed! Response code is $res_code.\n" if $res_code != 200;

# continue processing here