#!/usr/bin/env perl
use strict;
use warnings;

use utf8; # if you must

our $VERSION = '0.01';

use Test::More;
use Test2::Plugin::UTF8; # rids of the Wide Character in TAP message!

use Net::API::DeepL qw/http_tiny/; # import our new module

my $results = http_tiny(...);
# this is how a test looks like:
ok(defined $results, "http_tiny() : called and got defined results");
ok(ref($results) eq 'HASH', "http_tiny() : results is a HASHref");
# etc etc etc

done_testing(); # epilogue

##</code><code>##

perl Makefile.PL
make all
make test

##</code><code>##

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use Getopt::Long;

use Net::API::DeepL qw/http_tiny/; # import our new module

my ($infile, $outfile, $verbose);
$verbose = 0;
if( ! Getopt::Long::GetOptions(
  'infile=s' => \$infile,
  'outfile=s' => \$outfile,
  'verbose=i' => \$verbose,
  'help' => sub { print STDERR "Usage : $0 --infile xx --outfile xx [--verbose N]\n"; exit(0) },
) ){ die "error, something wrong with the command-line parameters." }

die "parameters needed!" unless $infile and $outfile;

my $results = http_tiny($infile, $outfile, ...);
# at this point consider adding all your parameters into a hash and
# pass that to http_tiny($options) instead of passing a long list which
# may contain optional parameters.
die unless $results;

print "$0 : done, success.\n";

##</code><code>##

my $config = get_secrets();
my $trans = Net::API::DeepL->new($config);
my @results;
for my $totranslate (@$translations){
  push @results, $trans->http_tiny($totranslate);
}