11 lines
207 B
Perl
11 lines
207 B
Perl
#!/usr/bin/perl -w
|
|
|
|
use 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); |