my $child = fork();

if ($child) {
  sleep $sleep;
  kill 9, $child;
# parse $fileName here
}
else {
  my $flag =  `/usr/sbin/tcpdump -i eth0 -w $fileName`;
}