Select Code to Download

  foreach qw(foo bar baz bletch) { open I, ">$_"; print I $_; close I 
+}

`touch $_` for qw(foo bar baz bletch);