read FILE, my $foo, 1;
sprintf ('%u', $foo);