In addition - you need to pass subroutine reference:

my $command = sub { qx'xmmsctrl print %T' };

$command->(); # subroutine dereference
[download]