#!usr/bin/perl
use warnings;
use strict;

`copy NUL zero`;  #create empty file cp dev/null zero on unix?
my $size = -s 'zero';
print $size;      #does print "0"
__END__
0