...
my $path = "C:\\wamp\\www\\Web Forms\\Data\\Critique\\$company\\$file";

# print STDERR "$path\n";  # debug

open(F, ">", $path) or die "Cannot create '$path': $!";
print F $work;
close(F);

my $size = (stat $path)[7];
...