C:\Temp>perl -e "require 'crow.pl'; print map{qq|$_\n|} ret_files('.');" > do.dat