if ( ! exists $INC{"Tk.pm"} ) {
      print "Press ENTER to close: ";
      ''.<STDIN>
    }

##</code><code>##

ftype Perl=c:\perl\bin\perl.exe -Mouse "%1" %*