use LWP::Simple qw( mirror );

$rc = mirror( $url, $file );