IpfwSkel is a project mainly written in Perl, it's free.
Quick ipfw rule creation
ipfwSkel creates skeleton ipfw dynamic rulesets which may be useful for the overworked sysadmin. It's not particularly clever, but does support single queue creation,
Usage: ipfSkel.pl
Example: Open ports 22 to the world and trust 1.2.3.0/24 ./ipfwSkel.pl --tcp 22 --trusted 1.2.3.0/24 > ipfw.rules
Create a 300kbits/sec limit for port 80 ./ipfwSkel.pl --queue 80 --limit 300 > ipfw.rules