use Tk;

use Device::Modem;

my $mw = new MainWindow;
my $title = $mw -> Label(-text=>"Enter Start Number:") -> pack();
my $inputnumber = $mw -> Entry(-textvariable => \$number) -> pack();

my $but = $mw -> Button(-text => "Start Dialing",-width=>15, -command =>\&push_button)-> pack();
my $but1 = $mw -> Button(-text => "Hangup F1",-width=>15, -command =>\&push_button1)-> pack();

my $txt = $mw -> Scrolled('Text',-scrollbars=>"oe") -> pack;

$mw->bind( '<Key-F1>' => \&push_button1 );


my $modem = Device::Modem->new( port => 'COM1' );
if( $modem->connect( baudrate => 19200 ) ) {
      $txt -> insert('end',"Modem is Connected on COM1\n");
      }
      else {
      $txt -> insert('end',"Can't Connect to Modem\n");
}
MainLoop;

sub push_button { $txt -> insert ('end',"Dialing $number\n");
  $modem->dial($number);
}

sub push_button1 { $txt -> insert('end',"Hanging Up\n");
  $modem->hangup();
}