if( $Count = Win32::Test::GetFileSizes( 'c:\temp\*.*', $Data ) )
{
....
}

##</code><code>##

XS( ExtensionGetFileSizes ) 
{
....
}

##</code><code>##

XS( GetFileSizes )
{
....
}