87 open (OUT, ">$filename");

##</code><code>##

87 open (OUT, ">$filename") or die "Couldn't create '$filename': $!";

##</code><code>##

my $backupoutput = 1;
...
my $backupoutput = 2; # you will get the warning here

print $backupoutput;