if (my $fh = $cgi->upload('upload')) {
  local $/ = undef;
  $var = <$fh>;
}