use strict; sub ctrl{ system ("xmmsctrl print %T"); print "\n"; }