my $foo = (stat($file))[3];