#!/usr/bin/perl
print "Hellow World\n";
opendir(D,"C:\\xxx\\xxxx\dirname") or die "can't open the directory\n";
my @folders = grep {(!/^\./) && (!/^\.\./)} readir(D);
foreach (@folders) {
$prefix = "bk";
Print "$_\n";
system("Zip $_ $prefix.$_");
}