#!/usr/bin/env perl

use 5.012;
use warnings;

say "Platform: $^O";
say "Executable: $^X";

if ($^O eq 'MSWin32') {
    print 'Enter to close window: ';
    <>;
}

##</code><code>##

ken@titan /cygdrive/c/Users/ken/tmp
$ ./test_platform.pl
Platform: cygwin
Executable: /home/ken/perl5/perlbrew/perls/perl-5.30.0/bin/perl

ken@titan /cygdrive/c/Users/ken/tmp
$ perl ./test_platform.pl
Platform: cygwin
Executable: /home/ken/perl5/perlbrew/perls/perl-5.30.0/bin/perl

##</code><code>##

Platform: MSWin32
Executable: C:\Users\ken\local\opt\strawberry_perl\5_030_000\install\perl\bin\perl.exe
Enter to close window: 

##</code><code>##

PS C:\Users\ken\tmp> perl ./test_platform.pl
Platform: MSWin32
Executable: C:\Users\ken\local\opt\strawberry_perl\5_030_000\install\perl\bin\perl.exe
Enter to close window:

##</code><code>##

PS C:\Users\ken\tmp> ./test_platform.pl
PS C:\Users\ken\tmp>

##</code><code>##

Platform: MSWin32
Executable: C:\Users\ken\local\opt\strawberry_perl\5_030_000\install\perl\bin\perl.exe
Enter to close window: