The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#include "svwin32.h"

SSHWND
hwnd_from_sv(pTHX_ SV *sv) {
  SvGETMAGIC(sv);

  if (!SvOK(sv)) {
    return 0;
  }
  if (SvPOK(sv)) {
    STRLEN len;
    char const *p = SvPV_nomg(sv, len);

    if (len == 6 && strEQ(p, "active")) {
      return (SSHWND)GetForegroundWindow();
    }
  }

  return SvUV_nomg(sv);
}