use Module::Locate 'acts_like_fh';

sub fizbin {
  my($str, $infh, $outfh) = @_;

  -e $_ or acts_like_fh $_
    or die "Invalid file name/handle '$_'"
      for $infh, $outfh;

  ...
}