my $id_read = $mw->repeat( 1000, sub { ...einlesen... } );
#wenn Port zu
$id_read->cancel();