Select Code to Download

#!/usr/bin/perl

...
{ 
    print "FOO\n"; 
}

FOO
FOO
FOO

eval 
{
...
  }
};
print "'$@'";

#!/usr/bin/perl
for ($i=0;$i<=5;$i++)
{ 
    print "FOO\n"; 
}

#!/usr/bin/perl
use strict;
...
{ 
    print "FOO\n"; 
}