Select Code to Download

use warnings;
use strict;
...
# sub hiccup (&@) { return join "\n", map $_[0]->(), @_[ 1 .. $#_ ]; }

print "[[$s]]";

package Hic;

...
sub hiccup (&@) { return join "\n", map $_[0]->(), @_[ 1 .. $#_ ]; }

1;

c:\@Work\Perl\monks\Anonymous Monk\1197277>perl hiccup_here_3.pl
[[iptables -t nat -N outbound-DMZ
...
flocculate -f BOFF -j SNAT --to-source SOMEWHERE
iptables -t nat -A outbound-DMZ -j RETURN
]]