#!/usr/bin/perl -w use CGI; sub xmlenc($) { $_ = shift; s,&,&,gs; s,<,<,gs; s,>,>,gs; s,",",gs; s,',',gs; return $_; } # Get the keywords from the HTTP request my $q = new CGI; my $keywords = xmlenc($q->param("metakeywords")); print < Document About: $keywords
#!/usr/bin/perl -w
use CGI;
sub xmlenc($) {
$_ = shift;
s,&,&,gs;
s,<,<,gs;
s,>,>,gs;
s,",",gs;
s,',',gs;
return $_;
}
# Get the keywords from the HTTP request
my $q = new CGI;
my $keywords = xmlenc($q->param("metakeywords"));
print <
Document About: $keywords
Document About: $keywords
EOF
download
/dl-products.dl-products/dl-seo/
download
dl-products/dl-seo.html
dl-products/dl-products/SEO_MadeEasy_branded.pdf