END { open my $fh, ">", "done$param" or die $! }