C:\>perl -E "use Win32::Sound; my @as = Win32::Sound::SND_ASYNC; my @nd = Win32::Sound::SND_NODEFAULT; say @as | @nd;"
1

C:\>perl -E "use Win32::Sound; $x = (Win32::Sound::SND_ASYNC | Win32::Sound::SND_NODEFAULT); say $x"
3