my $one_window = ...
my $two_window = ...
$two_window->signal_connect( ... sub { $one_window->Boogie } )