Select Code to Download

#!/usr/bin/perl
use strict;
...
map { print "before $_\n" } @instances;
map { screwed "$_"; } @instances;
map { print "after $_\n" } @instances;

a1
a2

b1
b2

before a
before b
...
file b contains b2
after
after

before a
before b
...
opening file named b
after a
after b