#!/bin/bash

echo Content-Type: text/html
echo

cat <<'EOS' | perl -na - url.txt

    ($url = $F[0]) =~ s/([^\w\+\-\.])/'%'.unpack('H2', $1)/ge;
    print "<a href=\"http://snap.shot.cx/goto/$url\">$F[0]</a><br>\n" if($F[1] ne '');

EOS