open (my $handle, '>', $filename.':redtape') or die ...