#!/usr/bin/perl
use CGI;
$query = new CGI;
$act   = $query->param( 'act' );
$name  = $query->param( 'name' );

if ( $act eq "Enter" ) {
    print ( "Content-type: text/html\n\n" );
    system( "/bin/cat 2_1.html" );
    print ( $name );
    system( "/bin/cat 2_2.html" );
    print ( $name );
    system( "/bin/cat 2_3.html" );
}
elsif ( $act eq "Display source" ) {
    print ( "Content-type: text/plain\n\n" );
    system( "/bin/cat 1.pl" );
}
elsif ( $act eq "Help" ) {
    print ( "Content-type: text/html\n\n" );
    system( "/bin/cat Help.html" );
}