#!/usr/bin/perl -w

use strict;
use Win32::GUI;
use Win32::API;

my $winampHandle = Win32::GUI::FindWindow("Winamp v1.x", "");

print "Handle: $winampHandle\n";

my $sendMessage = new Win32::API("user32", "SendMessageA", ['N','N','N','N'], 'N');

my $playStatus = $sendMessage->Call($winampHandle,1024,2,104);

print $playStatus == 0 ? 'stopped' : $playStatus == 1 ? 'playing' : 'paused';