open (DAT, ">>$filename") || die ("no file exists");

##</code><code>##

open my $dat, '>>', $filename
    or die "Can't append '$filename': $!";