sub dargv {
    local *ARGV;
    @ARGV = @_;
    [<>];
}

sub dopen {
    my @t = map {
        open my $fh, '<', $_ or warn "Can't open `$_': $!\n";
        <$fh>;
    } @_;
    \@t;
}