#!/usr/bin/perl -w
use strict;
use warnings;

my $FName = '/Rpts/geezer.csv';

open my $OF, '>', "$FName.work" or die $!;
print $OF <<JUNK;
A bunch of junk to generate a report.
JUNK
close $OF;

rename "$FName.work", $FName;