Select Code to Download

package main;
use Tk;
...
                  apply_font($font);
            })->pack(-side => 'right');

sub apply_font {
    my $font = shift;
...
    }
}