Select Code to Download

$ perl -we'$file = "foo.bak"; ${"foo.bak"} = "seq 10|"; open $file or 
+die "nope:$!"; print for <$file>'
1
...
8
9
10