Select Code to Download

# at this point consider adding all your parameters into a hash and
# pass that to http_tiny($options) instead of passing a long list whic
+h
...
my %h;
$h{infile}  = $infile;
...

my %h; # or %params
...
...
   # when --outfile is detected: the key (outfile) and its value
...
}

sub get_... {
  if( /error/ ){ print STDERR "errors"; return undef }
...
my $ret = get_...();
if( ! defined $ret ){ print STDERR "call to get_...() has failed"; exi
+t(1) }
my ($url, $key) = @$ret;