open FH, '<', $file;

if(FH)
{
    ...
}
else
{
    print $!;
}