#!/usr/local/bin/perl -w

use strict;

my %form = (
    author       => undef,
    distributor  => undef,
    copyright    => undef,
    keywords     => undef,
    description  => undef,
    distribution => undef,
    robots       => undef,
    language     => undef,
    generator    => undef,
);

use CGI;

my $query = CGI->new;

print $query->header;

%form = %{$query->Vars};

open(HEADER, "header.html") or die("Cannot open file: $!\n");

print <<EOF
< meta name="author" content="$form{'author'}">
< meta name="distributor" content="$form{'distributor'}">
< meta name="copyright" content="$form{'copyright'}">
< meta name="keywords" content="$form{'keywords'}">
< meta name="description" content="$form{'description'}">
< meta name="generator" content="SpyderTag V1.0!">
< meta name="robots" content="$form{'robots'};">
< meta name="language" content=$form{'language'}">
< meta name="distribution" content="$form{'distribution'}
EOF

open(FOOTER, "footer.html") or die("Cannot open file: $!\n");

# open(FH, "> sample.txt") or die("Cannot write to file: $!\n");