#!/usr/bin/perl --
use strict; use warnings;
use Data::Dump;
dd \@ARGV;
eval 'use Win32::Unicode::Native;';
dd \@ARGV;

{
    use Win32::Process::CommandLine;
    Win32::Process::CommandLine::GetPidCommandLine($$, my $str);
    dd $str;
}

use Win32::CommandLine();
dd [ Win32::CommandLine::argv() ];
dd [ Win32::CommandLine::command_line() ];
#~ scalar <>;
sleep 10;