view release on metacpan or  search on metacpan

src/fetchsrc.pl  view on Meta::CPAN

        $local = File::Spec->catfile('src', $exe);
        $url   = "$download_base_url/mecab/$exe";
    }
    else {
        $local = File::Spec->catfile('src', $tgz);
        $url   = "$download_base_url/mecab/$tgz";
    }

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