die unless qw(perl did it first);