Help for this page

Select Code to Download

Select or download this

 my $x;
 my $counter;
...
   {
   pop @{$mon_obj->{'FILE_DATA'};  ## pop into oblivion
   }