sub do { shift; $do_call = "xmms -" . shift; system $do_call; return $do_call; }