#!/usr/bin/suidperl -w 
#
# Copyright (C) 1998 Raju Mathur (raju@sgi.com)
# All right reserved under the terms of the GNU General Public License (GPL)
# Version 2 or a later version.
#
# Version 2.0, 1999/04/07
#
$ENV{'PATH'}="/usr/bin:/bin:/usr/local/bin:/sbin:/usr/sbin:/usr/local/sbin" ;
open JUNK , ">/tmp/STOP.PPP" ;
close JUNK ;
exec "/usr/bin/killall" , "pppd" , "chat" ;