my $file = "c:/autoexec.bat";
my $fStats = stat($file);
print "Size is: " . $fStats[7]. "\n";