#! perl -w

use strict;
use FileHandle;
use Win32::OLE;

my $Class = "ValorLepComApi.T5KAEFactory";
eval {$LEP = Win32::OLE->GetActiveObject($Class)};
        die "LEP not installed" if $@;

##</code><code>##

For each PLACEMENT in Recipe.Placements
MsgBox PLACEMENT.PlacementPart.Refdes 
Next