my $maid_dir = "C:/Documents and Settings/mydir/Desktop/current/rm_files";

opendir my $dh, "$maid_dir"; # directory to search
	my @files = readdir $dh;				
	foreach my $f (@files){		
		my $size = -s $f;
		print $size, "\n";
		print Dumper($f);
		if($size < 1 ){
	           unlink("$size");
		}
	}