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