#!/usr/bin/perl @all = split(/?/,$ENV{'HTTP_REFERER'}); $where = @all[1]; if ($where eq 'Front') { print "Content-type: text/html\n\n"; print < Lezar.org 
Lezar.org

Coming soon
for information contact info\@lezar.org
Mn } elsif ($where eq 'WebMail') { print "Content-type: text/html\n\n"; print < Lezar.org WbMl } else { print "Content-type: text/html\n\n"; print "Query String is : $where \n"; } #