#!/usr/bin/perl

use CGI;


my $query= new CGI;

my $pdb_file = $query->param('pdbcode');

print $query->header(-type => 'text/html');

print $query->start_html(-title => "Secondary Structure Analysis");

MainProgram($pdb_file);

$query->end_html( );

#######################################################

# 'main' subroutine

sub MainProgram
{

    my($pdb_file) = @_;
    my $dssp = ".dssp";
    my $dsspdir = "http:/mywebsite/datafiles/";
    my $pdbcode = substr($pdb_file, 0, 4);
    my $dssp_file = "$dsspdir$pdbcode$dssp";

    print $query->('dssp file used is $dssp_file');
 
}