use Win32::File qw(COMPRESSED SetAttributes);

if (SetAttributes('D:/Testverz',COMPRESSED())) {
	say "hat geklappt";
}