Catch the perl hacker!

#!/usr/bin/perl -w
use Gtk;init Gtk;$w=new Gtk::Window();$b=new Gtk::Button
('Just Another Perl Hacker');$w->signal_connect("delete_event",\&b);
$b->signal_connect("enter",\&b);$w->add($b);$w->show_all();main Gtk;
sub b{$w->window->move(rand 700,rand 700);1}

Edited: ~Wed Nov 20 17:12:31 2002 (GMT) by footpad: Moved to CUFP, per Consideration

Comment on Catch the perl hacker!

Replies are listed 'Best First'.
Re: Catch the perl hacker! by diotalevi (Canon) on Nov 19, 2002 at 00:10 UTC
Cute. But um..., well... isn't that supposed to be obfuscated somehow? `__SIG__ use B; printf "You are here %08x\n", unpack "L!", unpack "P4", pack "L!", B::svref_2object(sub{})->OUTSIDE;` [download]	[reply] [d/l]