#! /usr/bin/perl
use strict;
use warnings;
use Archive::Extract;

# quick and dirty hack for
# https://www.perl-community.de/bat/poard/thread/17056

# first argument is archive file
my $archive = shift || die "no archive specified.\n";

my $ae = Archive::Extract->new( archive => $archive );
$ae->extract();

__END__
Usage:

x.pl archive
    extracts archive to current workdir