perl -wle"BEGIN{ @ARGV = map glob, @ARGV } print for @ARGV" *