sub ctrl {
   return qx/xmmsctrl print %T/;
}

my $ctrl = ctrl();

##</code><code>##

sub ctrl {
   return `xmmsctrl print %T`;
}