my $file = $query->param("uploaded_file");
my $data;
while (<$file>)
{
    $data .= $_;
}
$return = &validate_text($data);
if ($return == 1)
{
    # do stuff...
}