use Scalar::Util qw/ openhandle /;
if (openhandle($filename)) ...