#!/usr/local/bin/perl -Tw  
  
use diagnostics -verbose;  
use strict;  

use CGI;
use vars qw/$query $method $action $encoding/;

$query = new CGI;
$method = "POST";
$action = "TranslateTiff_Store.pl"; 
$encoding = $CGI::MULTIPART; 
$encoding = $CGI::MULTIPART; 


print $query->header;
print $query->start_multipart_form($method,$action,$encoding);


print "<H1>Store Image in Database</H1>\n";

print "Select the <VAR>browse</VAR> button to choose the ecg image\n";
print "file to upload.  When you press the submit button, this script will\n";
print "store the image in the database.\n";


# Start a multipart form.
print "Enter the file to process:";
print $query->filefield(-name=>'filename',
			-size=>20);
print "<br>";
print $query->reset;
print $query->submit(-label=>'Process File');
print $query->end_form;