#!/usr/bin/perl

use strict;
use warnings;

use Win32::FileOp;

print "Win32::API version $Win32::API::VERSION\n\n";
print "Win32::FileOp version $Win32::FileOp::VERSION\n\n";

my $file  = Win32::FileOp::SaveAsDialog;
print $file;    

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