if(open FH, '<', $file)
{
    ...
}
else
{
    print $!;
}