Select Code to Download

#!/usr/bin/perl

...
#exit;
$file = Win32::FileOp::SaveAsDialog;
print $file;

   my $struct = pack "LLLpLLLpLpLppLIppLLpILL",
     (
...
      $lpTemplateName            #'lpTemplateName'    #  LPCTSTR
      , 0, 1
     );