perl -e 'print  ( (stat(shift))[8] . "\n") '   s32adm_bash_history