Select Code to Download

$deletes[0] # contains first $oid to delete
$deletes[1] # contains second $oid to delete
...
$deletes[n] # contains n+1 th .....

<code>
#/usr/bin/perl -w
...
   unlink $oid_to_delete or die "Can't unlink $oid $!\n";
   print "Deleted $oid_to_delete\n";
}