use Win32::OLE qw(in); 
$collection=$ie->getAgent(); 
 
foreach $value (in $collection) {
    print keys %$value;
}

##</code><code>##

$filename= %$value->{Name};'