Help for this page
$name = $bf->Entry(-textvariable => \$filename); my $button = $bf->Button( -command => \&load, ... }