Using Perl, is it possible to query ClearCase for all mounted VOBs and the files/folders the different VOBs contain?

The code I worked out by now is the following:

use strict;
use Win32::OLE;

print "Instantiating CAL";
my $CCApp = Win32::OLE->new("ClearCase.Application") or
die "Can't create ClearCase application object via call to Win32::OLE->new(): $!";
print "Getting VOBs";
my @CCVob = $CCApp->VOBs();
my $CCVobLength = @CCVob;
print "CCVobLength = $CCVobLength";

With this script I can see that there is one VOB within the CCApp. But I can't figure out how to continue and query the VOB for its name, type or anything useful.

I guess I should add that I'm pretty new to Perl and used to develop software using C, C++ and Java...

There I would cast the element to the appropriate type and then use some interface function to continue...

Thanks in advance for any answer and regards