===Google Clip===
Search google for what's in your clipboard.
===The Script===
Put this in google_clip.pl.
<code Perl>
#!/usr/bin/perl                                                                                                                                                                         

use strict;
use warnings;

use URI::Escape;

my $query = `xclip -selection primary -o`;
$query = uri_escape($query);
$query = "http://www.google.com/search?q=$query";
my $socket = $ARGV[3];
my $sh;
open $sh, '>', $socket or die "Could not open '$socket': $!\n";
print $sh "uri $query\n";
close $sh;
</code>
===Bindings===
I use:
<code>
bind    gp        = spawn $XDG_DATA_HOME/uzbl/scripts/google_clip.pl
</code>