Some small and handy scripts I've written for Windows.

Compress every single *.cad file with 7zip:

#!/usr/bin/perl -w
#
# 2008-03-12/TB
#
use strict;
 
my @files = glob "*.cad";
 
die "no files found!\n"
	if (scalar @files == 0);
 
foreach my $file (@files) {
	system( "c:\\programme\\7-zip\\7z.exe a -tzip -mx9 \"$file\".zip \"$file\"" );
}