Select Code to Download

sub labelledEntry {
    my ($_objects, $objkey, $label, $width, $container) = @_;
    my %objects = %$_objects;
...

    return \%objects;
}

$searchFrame -> Button( -text => 'search', -command => [ \&search, \$o
+bjects{searchstr} ] )->pack( -side => 'left' );


...
    my $text = shift;
    print STDERR $text;
}