#!/usr/bin/perl
 
use strict;
use warnings;
 
use Win32::GuiTest qw(:ALL);
 
system "control mmsys.cpl";
sleep 1;
my @sound = FindWindowLike(undef, "Sound");

# Get the list that contains the playback devices
my @list = FindWindowLike($sound[0], "", "SysListView32");
my ($left, $top, $right, $bottom) = GetWindowRect($list[0]);

# Move the mouse within the bounds of that list, clicking
# on stuff. You can type "E" to enable the device once you
# right-click, or "D" to disable it.
MouseMoveAbsPix($right - 10, $top + 5);
SendMouse("{RightClick}");
SendKeys("{E}");