#!/usr/bin/perl -T
# $Id: main.cgi,v 1.1 2015/01/16 07:54:13 sqko Exp $
use strict;
use warnings;
use RFC::RFCCGI qw(:cgi :html);
use CGI qw(:standard :netscape);

&print_header("Front page");
print start_form(-name=>'sofc',-action=>'../celltest/main.cgi');
print_hidden();
print end_form();

print <<END;

<script>

document.sofc.submit();

</script>

END

&print_end();
