Select Code to Download

$widget->fileevent($fh, 'readable' => sub { ...call-back code... });

open(S, '+<', '/dev/ttyS0');
read(S, $buf, 1024, length($buf));
print S "etc.\n";