#!/usr/bin/perl

opendir(DIR,".");
@files = readdir(DIR);

foreach $f (@files) {
if($f =~/\.zip/) {
`unzip $f`;
}
}