if ($outfile) {
  open($out, ">", $outfile);
} else {
  $out = ???
}

print $out $text;