#!/usr/bin/perl

use strict;

my @commands = qw( ogg123 mpg123 mpg123.bin mplayer vlc sidplay2 );
my $cmd = join '\|', @commands;

if(`ps a -o state,cmd | grep '$cmd' | grep ^T`) {
  map { `killall -SIGCONT $_ 2>/dev/null` } @commands;
} else {
  map { `killall -SIGSTOP $_ 2>/dev/null` } @commands;
}