#!/usr/bin/perl

use strict;
use CGI;
# Errors should get shown to the browser better here:
use CGI::Carp qw(fatalsToBrowser);

# checks to see if a user has a directory,
# Then makes one if they do not...
sub checkname {
   $name = shift;
   opendir UPLOAD,"$basedir/$name" or mkdir "$basedir/$name", 777;
   closedir UPLOAD;
#return success, cause you should always have 
# a return'd value
   return 1;
}

# Need this line so that the file may be 
# gotten with require();
return 1;