- or download this
use warnings;
use strict;
...
# sub hiccup (&@) { return join "\n", map $_[0]->(), @_[ 1 .. $#_ ]; }
print "[[$s]]";
- or download this
package Hic;
...
sub hiccup (&@) { return join "\n", map $_[0]->(), @_[ 1 .. $#_ ]; }
1;
- or download this
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
]]