Select Code to Download

#!/usr/bin/perl -w

...
    print $error if $error;
}

void GetFileName(BSTR* pbstrFileName);