#!/usr/bin/perl -wT  
 
use strict;  
use CGI qw/param uploadInfo/;
use CGI::Carp qw ( fatalsToBrowser );  
use File::Basename;  
 
my $query = new CGI;  
my $filename = $query->param("manuscript");
my ( $name, $path, $extension ) = fileparse ( $filename, '\..*' );  
$filename = $name . $extension;  

my @allowedext = qw(doc docx odt rtf);

unless(@allowedext = $extension)
{  
 print $query->header ( );  
 print "Filetype not allowed. Please upload doc, docx, odt, or rtf files only.";  
 exit;  
}