Select Code to Download

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

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