#!/usr/bin/perl -w
$|++;
use strict;

my $total=0;
my $dir = shift || die "Needs Directory Param!\n";

opendir LOCAL,$dir or die "Can't open directory '$dir': $!\n";
while (my $file = readdir LOCAL)
{
    next unless $file =~ /\.t(?:ar\.)?gz\z/;
    system("tar", "xzvf", "$dir/$file");
    $total++;
}
closedir LOCAL;

print "$total files expanded!\n";