#!/usr/bin/perl -w

use strict;
use vars qw($Num @Ipfw %Repl);

$Num = 10;

sub add {
  my ($rule, $lbl) = @_;
  $Repl{$lbl} = $Num if $lbl;
  push @Ipfw, "add $Num $rule";
  $Num += 10;
}

sub setup_loopback {
  add("pass all from any to any via lo0");
  add("deny all from any to 127.0.0.0/8");
  add("deny ip from 127.0.0.0/8 to any");
}

sub print_ipfw {
  foreach (@Ipfw) {
    foreach my $lbl (keys %Repl) { s/$lbl/$Repl{$lbl}/g }
    print $_, "\n";
  }
}

1;