# perl -wle 'print -s q{/var/lib/mysql/test/foo.MYD}'
40