#$data_from _file = get_file_data( $q->upload('file') );
sub get_file_data {
	my $filehandle = shift;
	my    ($data, $buffer, $bytesread);
	while ($bytesread=read($filehandle,$buffer,1024)) {
           $data .= $buffer;
        }
	return $data;
}