#!/usr/bin/perl                                                                 #                                                                               # freeware!                                                                     #                                                                               use strict;                                                                     my $cmd= `which xmame.x11`;                                                     chop $cmd ? $cmd : $cmd='./xmame.x11';                                          unless (defined $ARGV[0]){                                                        print "                                                                         kxmame: xmame kicker for kde xmame usage                                      
  ./kxmame GAMENAME OPTIONS                                                                                                                                       this script must be executable (chmod 755 kxmame)                               run xmame.x11 to see all possible xmame command line arguments                                                                                                  ";                                                                              exit;                                                                         }                                                                               $cmd="$cmd -rid `xwininfo -root | grep xwininfo: | awk '{print \$4}'`";         foreach (@ARGV){ $cmd .= " $_";}                                                print "Executing $cmd\n\n";                                                     system $cmd;                                                                    
