I am trying to use Archive::Any in a script where taint mode is enabled. Unfortunately it seems they don't like each other.

See the following example:

#!/usr/bin/perl -T
use strict;
use warnings;

use Archive::Any;
my $aa = Archive::Any->new($0);

print "OK\n";
[download]

Which gave me

Insecure dependency in eval while running with -T switch at .../perl5/
+Archive/Any.pm line 153.
[download]

The code around line 153 looks like this:

sub new {
    my ( $class, $file, $type ) = @_;

    $file = rel2abs($file);
    return unless -f $file;

    my %available;

    my @plugins = Archive::Any::Plugin->findsubmod;
    foreach my $plugin (@plugins) {
        eval "require $plugin";
        next if $@;

        my @types = $plugin->can_handle();
        foreach my $type ( @types ) {
            next if exists( $available{$type} );
            $available{$type} = $plugin;
        }
    }
[download]

Any idea how to get it work?