exec perl -e 'for (@ARGV) { s/^(.)/uc($1)/e; }; print "@ARGV\n";' "$@"