#!/usr/bin/perl
# untested:

require POSIX;
my $pid = fork;
unless ($pid) {
    exec 'tcpdump', @ARGV;
    POSIX::_exit(1);
}
while (<>) { ; }; # just discard input until EOF
kill KILL => $pid;