"CheckDir error : Cannnot create
                  unable to process /root/raja/plpgm/a.txt

##</code><code>##

#!/usr/bin/perl

use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
my $zip = Archive::Zip->new();

$EMPFILE = "/root/raja/plpgm/a.txt";

$zip->addFile( $EMPFILE )
               or warn "Error adding file $memberName\n";


if ($zip->writeToFileNamed('/root/raja/dummy.zip') != AZ_OK) {  # write to disk
    print "Error in archive creation!";
} else {
    print "Archive created successfully!";
}