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

    print $OUT @stuff;

    # chmod 0444, $OUT;     
    my ($inode)       =  ((stat($OUT))[1]);
    my ($filename)    = ` find . -inum $inode ` ; 
    chomp  $filename ; 
    chmod 0444, $filename ; 
    close $OUT;
[download]