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

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

print "OK\n";