7 use Glib qw(TRUE FALSE);
15 my $gui = SCX::GUI->new;
16 my $track = SCX::Track->new({ gui => $gui });
19 my $reader = SCX::Reader->new({
20 portname => '/dev/ttyUSB0',
25 Glib::IO->add_watch(fileno($reader->fh), 'in', \&scx_read, $reader);
40 my ($event, $fh, $reader) = @_;