# popup.pl
use Win32;

Popup('testing popup detection...', 16, 'Some popup title');

sub Popup {
  my ($msg, $flags, $title) = @_;
  return Win32::MsgBox($msg, $flags, $title);
  die $msg;
}