C:\>perl -E "use Win32::Sound; say Win32::Sound::SND_ASYNC; say Win32::Sound::SND_LOOP; say Win32::Sound::SND_NODEFAULT;"
1
8
2

##</code><code>##

...
Win32::Sound::Play($filename, Win32::Sound::SND_ASYNC & Win32::Sound::SND_NODEFAULT);
...


##</code><code>##

C:\>perl -E "use Win32::Sound; say Win32::Sound::SND_ASYNC & Win32::Sound::SND_NODEFAULT;"
1

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

C:\>perl -E "use Win32::Sound; say (1 & 2);"
0

C:\>perl -E "use Win32::Sound; say ('1' & '2');"
0

C:\>perl -E "use Win32::Sound; my $as = Win32::Sound::SND_ASYNC; my $nd = Win32::Sound::SND_NODEFAULT; say $as & $nd;"
0

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

##</code><code>##

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