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

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


##</code><code>##

HKEY_CLASSES_ROOT
  Perl_program_file
    shell
      Execute Perl Program
        command = [REG_SZ] C:\Strawberry\perl\bin\perl.exe "%1" %*

##</code><code>##

PS VinsWorldcom ~\tmp > .\test.pl
Platform: MSWin32
Executable: C:\Strawberry\perl\bin\perl.exe
Enter to close window:
PS VinsWorldcom ~\tmp > ./test.pl
Platform: MSWin32
Executable: C:\Strawberry\perl\bin\perl.exe
Enter to close window:
PS VinsWorldcom ~\tmp > perl .\test.pl
Platform: MSWin32
Executable: C:\Strawberry\perl\bin\perl.exe
Enter to close window:
PS VinsWorldcom ~\tmp > perl ./test.pl
Platform: MSWin32
Executable: C:\Strawberry\perl\bin\perl.exe
Enter to close window:
PS VinsWorldcom ~\tmp > ./test
Platform: MSWin32
Executable: C:\Strawberry\perl\bin\perl.exe
Enter to close window:
PS VinsWorldcom ~\tmp > .\test
Platform: MSWin32
Executable: C:\Strawberry\perl\bin\perl.exe
Enter to close window:
PS VinsWorldcom ~\tmp >

##</code><code>##

VinsWorldcom@:C:\Users\VinsWorldcom\tmp> .\test.pl
Platform: MSWin32
Executable: C:\Strawberry\perl\bin\perl.exe
Enter to close window:

VinsWorldcom@:C:\Users\VinsWorldcom\tmp> perl .\test.pl
Platform: MSWin32
Executable: C:\Strawberry\perl\bin\perl.exe
Enter to close window:

VinsWorldcom@:C:\Users\VinsWorldcom\tmp> .\test
Platform: MSWin32
Executable: C:\Strawberry\perl\bin\perl.exe
Enter to close window:

VinsWorldcom@:C:\Users\VinsWorldcom\tmp>