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