Select Code to Download

use strict;
use warnings;
...
my $fh = \*STDIN;
fcntl($fh, F_SETFL, O_NONBLOCK) || die "$!\n"; 
sysread($fh, my $buf, 1);

Your vendor has not defined Fcntl macro F_SETFL, used at ...