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

Also, the ftype wouldn't work until I supplied the full path to perl.exe:

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