view release on metacpan or  search on metacpan

src/fetchsrc.pl  view on Meta::CPAN

    die "no version?!" if
        (!$config{version} || $config{version} !~ /^[\d\.]+$/);

    my $tgz   = "libiconv-$config{version}.tar.gz";
    
    my $local = File::Spec->catfile('src', $tgz);
    my $url   = "$download_base_url/libiconv/$tgz";

    my $ua = LWP::UserAgent->new(
        agent      => "Alien::Iconv source downloader",
        keep_alive => 1,
        env_proxy  => 1,
    );
    print "downloading...\n",
          "  from: $url\n",
          "  local: $local\n";
    my $res = $ua->mirror($url, $local);
}