my $file = 'C:\ppp.txt';
print "file '$file' ";
if (-e $file) {
	print 'exists ';
	if (-z $file) {
		print 'but is empty';
	} else {
		print 'and is not empty';
	}
} else {
	print q!doesn't exist!;
}
print "\n";