#!/usr/bin/suidperl

# snoop on PPP line
# $Id: snoop,v 1.1 1997/11/21 16:50:21 czyborra Exp $

$< = $>; exec "/usr/sbin/tcpdump", "-i", "ppp0";