open FILE, "file" or die "yeah, $!";
read FILE, $char, 1;
# or sysread FILE, $char, 1;
close FILE;