Select Code to Download

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

my $ctrl = ctrl();

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