use strict;
sub ctrl {
    my $rv = `xmmsctrl print %T`;
    return $rv;
}

my $ctrl = ctrl();