validate if a file is already opened [in perl]

if(tell(filehandle) != -1)
{
//file is already opened ! [as tell returns -1]
}