#!/usr/local/bin/perl -w

use warnings;
use strict;

$|=1;

my $output;
my $pid;

$pid = open (STDIN,"sudo /usr/sbin/tcpdump -n -e -i mon_wlan0 -c 100|");

while ($output=<>){
	print "$output\n";
}

print "pid = $pid\n";