#!/bin/perl -w

srand(time()^$$);
my $number= int(rand(100000000));

system "tcpdump -i bge1 -s0 -w /tmp/file$number.out -C 1 &";

while(true){

  sleep 2;

  @array1 = `ls -1 /tmp | grep $number`;
  $result=@array1;

  if ($result > 9){