#!/usr/bin/perl

# http://www.altavista.com/cgi-bin/query?
# pg=q&text=yes&kl=XX&q=%2B%22windows+meta+file%22+%2Bunix&act=search
# pg, text are fixed hidden; kl is language
$sv=shift;

print 'http://www.altavista.com/cgi-bin/query?';
print 'pg=q&text=yes&kl=XX&q=';

$sv =~ s/([^a-z0-9])/"%".unpack("H2",("\1"))/g;

print $sv;
print "&act=search\n";