my $err="";
my $inputFileHandle = $cgi->param("FILE");

if ( -d <$inputFileHandle> )
{
   $err.="This is a directory.<br/>";
}

if ( !-f <$inputFileHandle> )
{
   $err.="This is not a plain file.<br/>";
}

if ( -z <$inputFileHandle> )
{
   $err.="This is a zero byte file.<br/>";
}

if ( !-e <$inputFileHandle> )
{
   $err.="This is a non-existing file.<br/>";
}