my $fh;
if( $filename ) {
  # open file, put handle in $fh
} else {
  # dup STDOUT, put handle in $fh
}

print $fh "wubba wubba\n";

close( $fh );

exit( 0 );