sub writeOutput {
    my $outScalarRef = shift;
    my $OUT;
    my $date = localtime();
    $date =~ s/ /_/g;

    open ($OUT,">$$outScalarRef") 
    or open ($OUT,">$$outScalarRef-$date") 
    or die "Cannot open file $$outScalarRef : $!\n";

    print $OUT @stuff;
    close $OUT;
    chmod 0444, $OUT;
}