#!/usr/bin/perl

            while( 1 ) {
            sleep 20;
            system( "pmfirewall stop;/sbin/ifup ppp3;ddup --host kdavis.dyndns.org;pmfirewall start" ) if `netstat -i` !~ /ppp0/;
            }