perl -E"say for map{ s[$ARGV[0]/][]; $_} glob qq[$ARGV[0]/*]"