C:\Users\ken\tmp>assoc | find /i "perl"
.pl=Perl_program_file

C:\Users\ken\tmp>ftype | find /i "Perl_program_file"

C:\Users\ken\tmp>

##</code><code>##

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:

C:\Users\ken\tmp>.\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:

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:

C:\Users\ken\tmp>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:

C:\Users\ken\tmp>

##</code><code>##

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