# ... lots of stuff
$entry = new Gtk::Entry(8);
$button = new Gtk::Button("Save");
# pass the entry-varible to the sub, if it ain't global
$button->signal_connect( "clicked", \&savethings, $entry);

# ... lots of more stuff :-)