1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
#!/usr/bin/env perl use strict; use warnings; sub main { my $color; $color = '#cc241d'; if (@ARGV == 1) { $color = $ARGV[0]; } return exec("clipmenu -i -p '' -l 25 -sb '$color' -shb '$color'"); } main(); __END__