view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
if (eval { require LWP::Simple; 1 }) {
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
view release on metacpan or search on metacpan
lib/Acme/CPANLists/Import/PerlAdvent/2000_12_07.pm view on Meta::CPAN
package Acme::CPANLists::Import::PerlAdvent::2000_12_07;
our $DATE = '2016-11-07'; # DATE
our $VERSION = '0.001'; # VERSION
our @Module_Lists = ({description=>"This list is generated by extracting module names mentioned in [http://perladvent.org/2000/7/] (retrieved on 2016-11-07). Visit the URL for the full contents.",entries=>[{module=>"Tie::Scalar::Timeout"}],summary=>"...
1;
# ABSTRACT: Modules mentioned in Perl Advent Calendar 2000 (day 7)
__END__
lib/Acme/CPANLists/Import/PerlAdvent/2000_12_07.pm view on Meta::CPAN
This list is generated by extracting module names mentioned in [http://perladvent.org/2000/7/] (retrieved on 2016-11-07). Visit the URL for the full contents.
=over
=item * L<Tie::Scalar::Timeout>
=back
=head1 HOMEPAGE
view release on metacpan or search on metacpan
lib/Acme/CPANLists/Import/PerlAdvent/2005.pm view on Meta::CPAN
package Acme::CPANLists::Import::PerlAdvent::2005;
our $DATE = '2016-11-07'; # DATE
our $VERSION = '0.001'; # VERSION
our @Module_Lists = ({description=>"This list is generated by extracting module names mentioned in [http://perladvent.org/2005/] (retrieved on 2016-11-07). Visit the URL for the full contents.",entries=>[{module=>"Acme::Code::FreedomFighter"},{module...
1;
# ABSTRACT: Modules mentioned in Perl Advent Calendar 2005
__END__
lib/Acme/CPANLists/Import/PerlAdvent/2005.pm view on Meta::CPAN
=item * L<Tie::Hash::Cannabinol>
=item * L<Tie::HashDefaults>
=item * L<Tie::Scalar::Timeout>
=item * L<Time::Local>
=item * L<Time::Object>
view release on metacpan or search on metacpan
lib/Acme/CPANModules/Import/CPANRatings/User/stevenharyanto.pm view on Meta::CPAN
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-10-29'; # DATE
our $DIST = 'Acme-CPANModules-Import-CPANRatings-User-stevenharyanto'; # DIST
our $VERSION = '0.002'; # VERSION
our $LIST = {description=>"This list is generated by scraping CPANRatings (cpanratings.perl.org) user page.",entries=>[{description=>"\n(REMOVED)\n",module=>"Log::Any",rating=>undef},{description=>"\nProvides a thin/lightweight OO interface for \$?, ...
1;
# ABSTRACT: List of modules mentioned by CPANRatings user stevenharyanto
__END__
lib/Acme/CPANModules/Import/CPANRatings/User/stevenharyanto.pm view on Meta::CPAN
=item L<Time::Out>
Author: L<PATL|https://metacpan.org/author/PATL>
A wrapper around Perl's alarm()/$SIG{ALRM}, so it has the same limitations, e.g. you cannot use this to properly timeout external programs started by system()/backtick. For the latter, you might want to try IPC::Cmd (run() or run_forked()), or some s...
<br><br>
=item L<Util::Timeout>
Author: L<NOTBENH|https://metacpan.org/author/NOTBENH>
A wrapper around Perl's alarm()/$SIG{ALRM}, so it has the same limitations, e.g. you cannot use this to properly timeout external programs started by system()/backtick. For the latter, you might want to try IPC::Cmd (run() or run_forked()), or some s...
<br><br>
=item L<System::Timeout>
Author: L<CHENGANG|https://metacpan.org/author/CHENGANG>
This is a thin wrapper over IPC::Cmd's run(). I'd personally use run() directly, it's not much harder or longer to type. Plus, IPC::Cmd is a core module.
<br><br>
view release on metacpan or search on metacpan
lib/Acme/CPANModules/Import/PerlAdvent/2000_12_07.pm view on Meta::CPAN
our $DATE = '2018-09-22'; # DATE
our $VERSION = '0.001'; # VERSION
our $LIST = {
description => "This list is generated by extracting module names mentioned in [http://perladvent.org/2000/7/] (retrieved on 2016-11-07). Visit the URL for the full contents.",
entries => [{ module => "Tie::Scalar::Timeout" }],
summary => "Modules mentioned in Perl Advent Calendar 2000 (day 7)",
};
1;
# ABSTRACT: Modules mentioned in Perl Advent Calendar 2000 (day 7)
lib/Acme/CPANModules/Import/PerlAdvent/2000_12_07.pm view on Meta::CPAN
=head1 INCLUDED MODULES
=over
=item * L<Tie::Scalar::Timeout>
=back
=head1 HOMEPAGE
view release on metacpan or search on metacpan
lib/Acme/CPANModules/Import/PerlAdvent/2005.pm view on Meta::CPAN
{ module => "Text::Unidecode" },
{ module => "Tie::DBI" },
{ module => "Tie::File" },
{ module => "Tie::Hash::Cannabinol" },
{ module => "Tie::HashDefaults" },
{ module => "Tie::Scalar::Timeout" },
{ module => "Time::Local" },
{ module => "Time::Object" },
{ module => "URI::Find" },
{ module => "WWW::Mechanize" },
{ module => "XML::Grove" },
lib/Acme/CPANModules/Import/PerlAdvent/2005.pm view on Meta::CPAN
=item * L<Tie::Hash::Cannabinol>
=item * L<Tie::HashDefaults>
=item * L<Tie::Scalar::Timeout>
=item * L<Time::Local>
=item * L<Time::Object>
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
if (eval { require LWP::Simple; 1 }) {
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
if (eval { require LWP::Simple; 1 }) {
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
if (eval { require LWP::Simple; 1 }) {
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
if (eval { require LWP::Simple; 1 }) {
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
if (eval { require LWP::Simple; 1 }) {
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
if (eval { require LWP::Simple; 1 }) {
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
view release on metacpan or search on metacpan
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Dancer::Plugin::Tail;
use Dancer::Plugin::Tapir;
use Dancer::Plugin::TemplateFlute;
use Dancer::Plugin::Test::Jasmine;
use Dancer::Plugin::Thumbnail;
use Dancer::Plugin::TimeoutManager;
use Dancer::Plugin::TimeRequests;
use Dancer::Plugin::Transformator;
use Dancer::Plugin::TTHelpers;
use Dancer::Plugin::UnicodeNormalize;
use Dancer::Plugin::UUID;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use DBIx::TextSearch;
use DBIx::TextTableAny;
use DBIx::ThinSQL;
use DBIx::ThinSQL::SQLite;
use DBIx::Threaded;
use DBIx::Timeout;
use DBIx::TNDBO;
use DBIx::Tracer;
use DBIx::Transaction;
use DBIx::TransactionManager;
use DBIx::TransactionManager::Distributed::tar;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use IO::Prompt;
use IO::Prompter;
use IO::Prompt::Hooked;
use IO::Prompt::IN;
use IO::Prompt::Simple;
use IO::Prompt::Timeout;
use IO::Prompt::Tiny;
use IO::Pty::Easy;
use IO::Pty::HalfDuplex;
use IO::React;
use IO::ReadHandle::Chain::v;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use IO::Socket::Socks;
use IO::Socket::Socks::Wrapper;
use IO::Socket::SSL;
use IO::Socket::Telnet;
use IO::Socket::Telnet::HalfDuplex;
use IO::Socket::Timeout;
use IO::Socket::TIPC;
use IO::Socket::UNIX::Util;
use IO::Statistics;
use IO::Storm;
use IO::Stream::Crypt::RC::v;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use LWP::UserAgent::Keychain;
use LWP::UserAgent::Mockable;
use LWP::UserAgent::OfflineCache;
use LWP::UserAgent::Paranoid;
use LWP::UserAgent::Patch::FilterMirror;
use LWP::UserAgent::Patch::HTTPSHardTimeout::t;
use LWP::UserAgent::Patch::LogRequestContent::t;
use LWP::UserAgent::Patch::LogResponse;
use LWP::UserAgent::Patch::Retry;
use LWP::UserAgent::POE;
use LWP::UserAgent::ProgressAny;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Net::Twitter::Loader;
use Net::Twitter::Queue;
use Net::Twitter::RandomUpdate;
use Net::UCP::Client;
use Net::UCP::Common;
use Net::UCP::IntTimeout;
use Net::UCP::tgz;
use Net::UCP::TransactionManager;
use Net::uFTP;
use Net::UKDomain::Nominet::Automaton;
use Net::UPCDatabase;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use PerlIO::via::QuotedPrint;
use PerlIO::via::SeqIO;
use PerlIO::via::Skip;
use PerlIO::via::StripHTML;
use PerlIO::via::symlink;
use PerlIO::via::Timeout;
use PerlIO::via::ToFirePHP;
use PerlIO::via::trap;
use PerlIO::via::Unidecode;
use perlipq;
use Perlipse::zip;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Plack::Middleware::Throttle;
use Plack::Middleware::Throttle::Lite;
use Plack::Middleware::Throttle::Lite::Backend::Memca;
use Plack::Middleware::Throttle::Lite::Backend::Redis;
use Plack::Middleware::Timed::Logger;
use Plack::Middleware::Timeout;
use Plack::Middleware::TimeOverHTTP::v;
use Plack::Middleware::TimeStats;
use Plack::Middleware::TMT;
use Plack::Middleware::TrafficLog;
use Plack::Middleware::TrailingSlash;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use System::Index::zip;
use System::Info::tgz;
use System::InitD;
use System::Process;
use System::Sub;
use System::Timeout;
use System::Wrapper::v;
use Sys::Trace;
use Sys::UniqueID;
use Sys::Uptime;
use Sys::User::UIDhelper;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Tie::Scalar::Random;
use Tie::Scalar::Ratio;
use Tie::Scalar::RestrictUpdates::b;
use Tie::Scalar::RingBuffer;
use Tie::Scalar::Sticky;
use Tie::Scalar::Timeout;
use Tie::Scalar::Timestamp;
use Tie::Scalar::Transactional;
use Tie::SecureHash;
use Tie::Select;
use Tie::Senna;
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
if (eval { require LWP::Simple; 1 }) {
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
if (eval { require LWP::Simple; 1 }) {
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
if (eval { require LWP::Simple; 1 }) {
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
if (eval { require LWP::Simple; 1 }) {
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
view release on metacpan or search on metacpan
lib/Acme/HTTP.pm view on Meta::CPAN
my $hdl = $self->{'hdl'};
my $sel = IO::Select->new($hdl);
unless ($sel->can_read($Acme::HTTP::TimeOut)) {
$@ = 'Timeout ('.$Acme::HTTP::TimeOut.' sec)';
return;
}
my $bytes = $hdl->read_entity_body($_[0], $_[1]);
lib/Acme/HTTP.pm view on Meta::CPAN
# ...or, alternatively, use https:
# $url = "https://metacpan.org/pod/Data::Dumper";
set_redir_max(3); # Max. number of redirections
set_timeout(10); # Timeout in seconds
my $obj = Acme::HTTP->new($url) || die $@;
my $code = get_code();
my $msg = get_message();
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
if (eval { require LWP::Simple; 1 }) {
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
if (eval { require LWP::Simple; 1 }) {
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
if (eval { require LWP::Simple; 1 }) {
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
if (eval { require LWP::Simple; 1 }) {
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
view release on metacpan or search on metacpan
lib/Acme/MUDLike.pm view on Meta::CPAN
req.send("");
}
}
function setup_poll() {
setTimeout('poll_server()', 1000);
}
function poll_server() {
var nick = document.getElementById("nick").value;
var admin = document.getElementById("admin").value;
lib/Acme/MUDLike.pm view on Meta::CPAN
});
},
// timeout (ms)
//timeout: 0,
ajaxTimeout: function( timeout ) {
jQuery.ajaxSettings.timeout = timeout;
},
ajaxSetup: function( settings ) {
jQuery.extend( jQuery.ajaxSettings, settings );
},
lib/Acme/MUDLike.pm view on Meta::CPAN
if ( s.global )
jQuery.event.trigger("ajaxSend", [xml, s]);
// Wait for a response to come back
var onreadystatechange = function(isTimeout){
// The transfer is complete and the data is available, or the request timed out
if ( xml && (xml.readyState == 4 || isTimeout == "timeout") ) {
requestDone = true;
// clear poll interval
if (ival) {
clearInterval(ival);
ival = null;
}
var status;
try {
status = jQuery.httpSuccess( xml ) && isTimeout != "timeout" ?
s.ifModified && jQuery.httpNotModified( xml, s.url ) ? "notmodified" : "success" : "error";
// Make sure that the request was successful or notmodified
if ( status != "error" ) {
// Cache Last-Modified header, if ifModified mode.
var modRes;
lib/Acme/MUDLike.pm view on Meta::CPAN
};
// don't attach the handler to the request, just poll it instead
var ival = setInterval(onreadystatechange, 13);
// Timeout checker
if ( s.timeout > 0 )
setTimeout(function(){
// Check to see if the request is still happening
if ( xml ) {
// Cancel the request
xml.abort();
lib/Acme/MUDLike.pm view on Meta::CPAN
globalEval: function( data ) {
if ( window.execScript )
window.execScript( data );
else if ( jQuery.browser.safari )
// safari doesn't provide a synchronous global eval
window.setTimeout( data, 0 );
else
eval.call( window, data );
}
});
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
if (eval { require LWP::Simple; 1 }) {
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
if (eval { require LWP::Simple; 1 }) {
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
if (eval { require LWP::Simple; 1 }) {
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
if (eval { require LWP::Simple; 1 }) {
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
if (eval { require LWP::Simple; 1 }) {
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
if (eval { require LWP::Simple; 1 }) {
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;