Help for this page

Select Code to Download

Select or download this

    if($count < 5)
    {
...
        $count = 0;
        @data  = ();
    }

Select or download this

#!/usr/bin/perl -w

...
        }
#    }
}