open my $d2, '<&', *DATA or die $!;