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

my $ctrl = ctrl();