perl -e"use Tk; $mw=tkinit; $mw->Button(-command=>sub{ CORE::exit })->pack; MainLoop; "

perl.exe has encountered a problem and needs to close.

Faulting application perl.exe, version 5.20.3.3, faulting module tk.xs.dll, version 8.4.2.5, fault address 0x00044b1e.