$AllocSpace = 0;
$NumbFiles = 0;

my $SOS = Win32::OLE->GetActiveObject("SpaceObServer.Application")
|| Win32::OLE->new("SpaceObServer.Application", 'Quit'); # get already active SOS
# application or open new


for($i=0; $i < $SOS->{FileAgesCount}; $i++)
{
    $SOS->{ROOTDirectory} = $RootDirectory;
    $CurrentID = $SOS->{RootFolderID};
    $SOS->GetFileAgesValue({
        olderID => $CurrentID,
        Index => $i,
        OccupiedSize => $AllocSpace,
        NumFiles => $NumbFiles
    });
    print "$AllocSpace\n\n"; # Just to see if I get any data returned
}