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

use strict;
use CGI ':standard';
my ($clear,$team,$across,$down,$move,$file,$file2,$line);