Select Code to Download

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>

C:\Users\ken\tmp>perl .\test_platform.pl
Platform: MSWin32
...
Enter to close window:

C:\Users\ken\tmp>

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