Select Code to Download

sub click {
    my $todo = shift;
    system "xmms -$todo";
}

$window->Button(-text=>"Prev", -command=> sub{click('r')})->pack(-side
+=>'left');

$window->Button(-text=>"Play", -command=> sub{click('p')})->pack(-side
+=>'left');
$window->Button(-text=>"Pause", -command=> sub{click('u')})->pack(-sid
+e=>'left');
$window->Button(-text=>"Next", -command=> sub{click('f')})->pack(-side
+=>'left');