#!/usr/bin/perl
use strict;
use warnings;
use 5.010;
system 'cls';

use Win32::OLE;
my $file = 'D:/Arbeit';

my $strComputer = '.';
my $objWMI = Win32::OLE->GetObject('winmgmts:\\\\' . $strComputer . '\\root\\cimv2');

my $objFile = $objWMI->Get('Cim_Datafile=\'' . $file . '\'');
my $intRC = $objFile->Compress;
if ($intRC != 0) {
	print 'There was an error compressing the file: ' . $intRC, "\n";
}
else {
	print "File compression successful\n";
}