C:\>C:\perl\bin\perl5.8.8.exe C:\1.pl
Tk::Error: Can't locate object method "get" via package "LWP::UserAgent" at C:\1
.pl line 334.
Tk callback for .dialogbox.top
Tk callback for .dialogbox.bottom
main::test_vuln at C:\1.pl line 334
Tk callback for .frame1.button
Tk::__ANON__ at C:/perl/lib/Tk.pm line 252
Tk::Button::butUp at C:/perl/lib/Tk/Button.pm line 111
<ButtonRelease-1>
(command bound to event)