foreach my $objItem (in $colItems) {

##</code><code>##

sub WMIDateStringToDate(strDate)
{
   return "blah ER";
}

##</code><code>##

sub WMIDateStringToDate
{
    return "blah ER";
}