my $file = 'c:\ppp.txt';
if (-e -z $file) {
   warn "$file exists but is zero sized!\n";
   open my $tmp, '>', $file or die "cannot write to $file!\n";
   #
   #write what you need to
   close $tmp
}