$output = 'test.mrc'; my $output_entry = $mrc_frame->LabEntry( -label=>'Output File Name', -labelPack=>[qw/-side left -anchor w/], -labelFont=>'9x13bold', -relief=>'flat', -textvariable=>\$output, -width=>15, ); my $info_test = $mrc_frame->Button( -text => 'Generate & View', -font => $gui_font, -background =>'#336699', -foreground =>'white', -padx=>4, -pady=>$button_pady, -command =>[sub{ printf "pdb2mrc $_[0] $_[1]"; },$input_file,$output] )->pack(-pady=>4, -side=>'left');