#!/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.$_");
}

##</code><code>##

Hello World
20130516
20130517
20130520

Zip Error: Nothing to do! <20130516.zip>
Zip wanrning name not matched: 20130516