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(-side=>'left'); $window->Button(-text=>"Next", -command=> sub{click('f')})->pack(-side=>'left');