Search google for what's in your clipboard.

Put this in google_clip.pl.

#!/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;

I use:

bind    gp        = spawn $XDG_DATA_HOME/uzbl/scripts/google_clip.pl