Select Code to Download

{
    my $parent   = $jb1 ;
    my $arrow    = $jb1 ->Subwidget('arrow');
...
        $parent, $callback,
    ] );
}

#!/usr/bin/perl --
use strict; use warnings;
...
    $b->pack;
    MainLoop;
}