#!/usr/bin/perl -w

use CGI;

use vars qw {
    $cgiobj
};

my $cgiobj = new CGI;
my @keywords = $cgiobj->keywords;
if ($keywords[0] !~ /\D/) {
    print $cgiobj->redirect("http://216.205.191.3/cgi-local/postcards.cgi?$keywords[0]");
} else {
    print $cgiobj->redirect("http://216.205.191.3/indexVTB.html");
}