How could you check the success of opening a file in Perl?

open ( FILE, "$0" );

if ( tell ( FILE ) == -1 )
{
        print "Not Opened!";
}

close ( FILE );