my $byte = 1;
syswrite(SIGWR, $byte, 1);