Help for this page

Select Code to Download


  1. or download this
    use Tk;
my $mw = MainWindow -> new;
...
              ->pack;

MainLoop;
  2. or download this
    use threads;
use threads::shared;
...
{
   $Rval = `a_command_line_function`; # final code will have serial po
+rt activity
}
  3. or download this
    use Device::SerialPort;
my $port=Device::SerialPort->new("/dev/ttyS0");
...
      $readBytes=""; # re-init
   }
}