http://qs321.pair.com?node_id=534104


in reply to -Mouse

I changed it to not prompt when it runs Perl/Tk programs:
if ( ! exists $INC{"Tk.pm"} ) { print "Press ENTER to close: "; ''.<STDIN> }

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

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