Help for this page
#!/usr/bin/perl -w ... print $error if $error; }
void GetFileName(BSTR* pbstrFileName);