in reply to Reading a directory and getting file dates

perl -e "map{ -f and print pack("A25",$_), (stat)[10], $/ }glob '*'"