#!/usr/bin/perl --
use strict;
use LWP::Simple;
use MIME::Base64 qw(encode_base64);
die "Usage: $0 Name 'SearchURLString'\n" if @ARGV < 2;
my ($name, $url) = @ARGV;
my ($site) = split '(?
$name
$name
UTF-8
data:image/x-icon;base64,$base64
$site
END_OF_SEARCHPLUGIN
__END__