Select Code to Download

 [any html or script here]
 ...
 <img src="/cgi-bin/counter.pl/image.png" />
</body>
</html>

 ...
 $dbh->do( q{
...
             }
          );
 ...

#!/usr/bin/perl
use strict;
...
      . "Content-Length: " . length($data) . "\n\n"
      . $data;
}