perl -e 'my $foo = (stat("myfile"))[7];print $foo'