# Use select.

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

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