# Redirect STDOUT.

if ($filename) {
   open(STDOUT, '>', $filename)
   or die("Can't open redirect STDOUT: $!\n");
}

print(...);  # Goes to file if one was specified, else STDOUT.