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