Select Code to Download

$ rm foo* bar*
$ echo foo > foo
$ echo bar > bar

$ perl -MPath::Tiny -wnE 'sub baz {uc} chomp; my $in = path($_); $in->
+sibling("$_.new")->spew(baz($in->slurp));' foo bar

$ cat foo.new
FOO
$ cat bar.new
BAR