my $myinput = "\x00";
read FILE, $myinput, 3, 1;
my $myinteger = unpack 'N', $myinput;