#!/usr/bin/perl -wuse LWP::Simple;use strict;my $url = "http://www.demo.org/";my $file = "/tmp/demo";my $status = mirror($url,$file);die "Cannot retrieve $url" unless is_success($status);