>perl c:\perl_scripts\zip.pl test C:\dir
Use of uninitialized value in pattern match (m//) at c:\perl_scripts\zip.pl line 14.
Use of uninitialized value in pattern match (m//) at c:\perl_scripts\zip.pl line 14.
Use of uninitialized value in pattern match (m//) at c:\perl_scripts\zip.pl line 14.
Use of uninitialized value in pattern match (m//) at c:\perl_scripts\zip.pl line 14.
Use of uninitialized value in pattern match (m//) at c:\perl_scripts\zip.pl line 14.
Use of uninitialized value in pattern match (m//) at c:\perl_scripts\zip.pl line 14.
Use of uninitialized value in pattern match (m//) at c:\perl_scripts\zip.pl line 14.
Use of uninitialized value in pattern match (m//) at c:\perl_scripts\zip.pl line 14.
Use of uninitialized value in pattern match (m//) at c:\perl_scripts\zip.pl line 14.
Use of uninitialized value in pattern match (m//) at c:\perl_scripts\zip.pl line 14.
Use of uninitialized value in pattern match (m//) at c:\perl_scripts\zip.pl line 14.
Use of uninitialized value in pattern match (m//) at c:\perl_scripts\zip.pl line 14.
Use of uninitialized value in pattern match (m//) at c:\perl_scripts\zip.pl line 14.
Use of uninitialized value in pattern match (m//) at c:\perl_scripts\zip.pl line 14.
Use of uninitialized value in pattern match (m//) at c:\perl_scripts\zip.pl line 14.
Use of uninitialized value in pattern match (m//) at c:\perl_scripts\zip.pl line 14.
Use of uninitialized value in pattern match (m//) at c:\perl_scripts\zip.pl line 14.
Use of uninitialized value in pattern match (m//) at c:\perl_scripts\zip.pl line 14.
Use of uninitialized value in pattern match (m//) at c:\perl_scripts\zip.pl line 14.
Use of uninitialized value in pattern match (m//) at c:\perl_scripts\zip.pl line 14.
Use of uninitialized value in pattern match (m//) at c:\perl_scripts\zip.pl line 14.
Use of uninitialized value in pattern match (m//) at c:\perl_scripts\zip.pl line 14.