#!/usr/bin/perl -I/usr/local/bandmin
#
#****************************************
#Bandmin (c)1998-1999 J. Nick Koston (BlueDraco) bdraco{at}darkorb[dot]net
# - A simple Bandwidth Monitor
#****************************************
#
#To use this package you must have a OS that has either ipfwadm,ipchains,
#or ipfw
#

use IP::Acct;

#get the last data
system ("/usr/local/bandmin/bandmin");

#flush out rules
$ipadmin = IP::Acct->new;
$ipadmin->flush();