view release on metacpan or  search on metacpan

script/cloudconvert  view on Meta::CPAN

    "help|?", "man", "config=s", "dry",
    "wait=i", "agent=s",
    "apikey=s", "from=s", "to=s",
) || pod2usage(-verbose => 0);
pod2usage(-verbose => 1)  if ($opt{help});
pod2usage(-verbose => 2)  if ($opt{man});

## Read configuration
my $configfile = $opt{config} || 'cloudconvert.json';
if (-e $configfile) {
    my $config = decode_json(do {local (@ARGV, $/) = $configfile; <>});
    foreach (keys %$config) {
        $opt{$_} = $config->{$_} unless exists $opt{$_}
    }
}

## Set default values
$opt{url} ||=  'https://api.cloudconvert.org/convert';
$opt{wait} ||= 300;
 
## check usage