#!/usr/bin/perl -w
$|++;
use strict;
my (@list, $d, $i);
die "Need Directory Param!\n" unless $ARGV[0];
my $cmd = qq/tar -zxvf/;
opendir LOCAL,$ARGV[0];
@list = readdir LOCAL;
foreach $d (0..$#list)
{
	if($list[$d] =~ /.+\.tar\.gz/)
	{
		qx/$cmd $list[$d]/;
		$i++;
	}
	elsif($list[$d] =~ /.+\.tgz/)
	{
		qx/$cmd $list[$d]/;
		$i++;
	}
}
print "$i files expanded!\n";
closedir LOCAL;