perl Tk 学习二添加按钮，文本框

#! /usr/bin/perl -w use strict;use Tk;my $main = new MainWindow;$main->Label( -text => 'Print file' )->pack;my $font = $main->Entry( -width => 10 );$font->pack;my $filename = $main->Entry( -width => 10 );$filename->pack;$main->Button( -text => 'Fax', -command => sub { do_fax( $filename, $font ) } )->pack; $main->Button(-text => 'Print',-command => sub { do_print( $filename, $font ) })->pack;MainLoop;sub do_fax {my ( $file, $font ) = @_;my $file_val = $file->get;my $font_val = $font->get;print "Now faxing $file_val in $font_val/n";}sub do_print {my ( $file, $font ) = @_;$file = get $file;$font = get $font;print "Sending file $file to printer in $font/n";}