my $font = $mw->fontCreate(@fontopts);
# that should be 
my $font = $mw->fontCreate('myfont', @fontopts);
#otherwise you need to use $font in the -font option
$fr->Button(-text=>"B1", -command=>$phello,-font=>$font )->pack(